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ABSTRACT 


THE OTAGNOSTIC IS USED TO TEST RPO4/5/6 DEVICE CONTROL LOCIC 
CONNECTED TO EITHER AN RH11 OR RH70 DISK DRIVE CONTROLLER 


THIS DIAGNOSTIC TESTS THE RH11 AND DCL OF AN RJPO4/5/6 SUBSYSTE™. 
IT DOES NOT USE THE DISK SURFACE OR ANY SIGNALS FROM THE MOLI. 
IT REQUIRES THAT THE DCL CABLE BE PLUGGED INTO THE MDLI OR 

BE APPROPIATELY TERMINATED. IF THE DISK IS POWERED UP, IT 

IS REQUIRED TO GET THE DISK TO THE “HEADS UNLOADED” POSITION. 
AFTER A SUCCESSFUL RUN (WITH WO ERRORS) OF THIS DIAGNOSTIC 

If CAN BE ASSERTED THAT, “THAT PART OF THE DCL THAT HANDLES 
DATA OR DATA ASSOCIATED LOGIC IS WORKING PROPERLY®. THIS 
IMPLIES THAT, THE PART OF THE LOGIC WHICH HANDLES MECHANICAL 
COMMANDS OR ITS ASSOCIATED LOGIC IS NOT TESTED IN THIS 
DIAGNOSTIC. ALL DATA COMMANDS USE THE MAINTENANCE REGISTER 

IN THE WRAPAROUND MODE. 


THE DIAGNOSTIC DOES NOT DO ANY TESTING OF THE RH70 CONTROLLER 
WHEN IT IS USED ON AN RWPO04/5/6 SYSTEM TO TEST RPO4/5/6 DISK DRIVES 
CONNECTED TO THAT TYPE OF CONTROLLER. IT IS ASSUMED THAT THE 
RH70 SPECIFIC CONTROLLER DIAGNOSTIC HAVE BEFN SUCCESSFULLY 

RUN TO COMPLETION BEFORE THIS DIAGNOSTIC IS RUN. 

REQUIREMENTS 

EQUIPMENT 

PDP-11 COMPUTER WITH CONSOLE TELETYPE, AND A RPO4/5/6 DISK SYSTEM. 
THE RPO4/5/6 DISK SYSTEM WILL CONSIST OF AN RH11/PH70 CONTROLLER, 
AND DISK CONTROL LOGIC (DCL), THE CABLE FROM THE DCL CAN BE 
CONNECTED TO TI'E MDLI, BUT IF NOT THAT CABLE MUST BE PROPERLY 
TERMINATED. 

STOPAGE 

THIS PROGRAW REQUIRES 16K WORDS OF MEMORY. 

PRELIMINARY PROGRAMS 

THIS CAN BE THE FIRST PROGRAM RUN ON AN RJPO4/5/6 SYSTEW BUT THE 
CONTROLLER DIAGNOSTICS MUST BE RUN FIRST IN THE CASE OF AN 
RWP04/5/6 SYSTEM. 

LOADING PROCEDURE 

USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 

STARTING PROCEDURE 

SWITCH 12 MUST BE SET WHEN THIS PROGRAM IS TO BE RUN USING AN 
RH70 CONTROLLER. IT CAN BE SET AT THE FRON PAEL, OR IN THE 
SOFTWARE SWITCH REGISTER IF TRE OPERATOR SO DESIRES. SE 
PARAGRAPH 5.1 FOR A DESCRIPTION OF SOFTWARE SWITCH PEGISTER 
OPERATION. 

CONTROL SWITCH SETTINGS 


SEE SECTION 5.1 


c/ 
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STARTING ADDRESS 


START AT ADDRESS 200---FOR NORMAL RUN 
START AT ADDRESS 210---FOR UNIT SELECTION 


200 START 

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS ALL THE RPO4/S/6S OW THE SYSTEM WILL BE 

TESTED ONE AT A TIME BEFORE “END PASS” IS PRINTED OUT. 

TESTING WILL START WITH THE LOWEST UNIT NUMPER DRIVE 

THAT IS POWERED UP (THAT IS THE LOWEST UNIT NUMBER RHAS REGISTER 
THAT RESPONDS)THEN GO ON TO THE WEXT HIGHER UNIT NUMBER 

THAT IS POWERED UP. 


210 START 

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS THE CONSOLE TELETYPE WILL ASK FOR THE UNIT 
NUMBER TO BE TESTED. THEN ONLY THAT UNIT WILL BE TESTED 
POR EACH PASS OF THE PROGRAM. 


PROGRAM AND/OR OPERATOR ACTION 

1. LOAD THE PROGRAM INTO MEMORY. 

2- SET STARTING ADDRESS ON THE SWITCH REGISTER 
3. PRESS “LOAD ADDRESS". 


4. SET “OPERATIONAL SWITCH SETTINGS" (SEE SECTION 5.1) 
WORST CASE IS ALL SWITCHES DOWN. 


Se PRESS “START®. 


6. FOR THE FIRST PASS EACH TEST WILL BE EXECUTED OWCE 
ON THE DRIVES PRESENT OR DRIVE SELECTED BEFORE “END 
PASS" IS PRINTED. THE FIRST PASS WILL REQUIRE OPERATOR 
INTERVENTION IF THE PROGRAM IS NOT RUN UNDER AN “ACT-11" 
MONITOR. THE SECOND AND SUBSEQUENT PASSES WILL EXECUTE 
EACH TEST FOUR TIMES OW EACH DRIVES PRESENT OR DRIVE 
SELECTED BEFORE “END PASS" IS PRINTED. THE SECOND 
AND SUBSEQUENT PASSES DO NOT NEED AWY OPERATOR INTERVENTION. 


OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


If THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I. E. 

AN 11/34) IT WILL DETERMINE THAT A HARDWARE SWTICH REGISTER 

IS NOT PRESENT, AND WILL USE A “SOFTWARE® SWITCH REGISTER. 

THE SETTINGS OF THE “SOFTWARE” SWITCHES ARE CONTROLLED 

THROUGAH A KEYBOARD ROUTINE WHICH IS CALLED BY TYPING A 

“CONTROL G°. THE PROGRAM WILL RECOGNIZE A “CONTROL G° AT ANY 
TIME EXCEPT WHEN IT [S AT A HIGHER PRIORITY PROCESSIHG A RP04/5/6 
INTERRUPT. THE “SOFTWARE” SWITCH VALUEA ARE ENTERED AS AW 

ooo NUMBER IN RESPONSE TO A PROMPT FROM THE SWITCH ENTRY 
OUTINE: 





EACH TIME SWITCH SETTINGS ARE EWTERED, THE ENTIRE SWITCH 
REGISTER IMAGE MUST BE EWTERED. LEADING ZEROS ARE NOT 
REQUIRED. “°RUBOUT” AND “CONTROL O° FUNCTIONS MAY BE USED TO 
CORRECT TYPING ERRORS DURING SWITCH ENTRY. 


OW PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE “SOFTWARE™ 
SWITCH REGISTER MAY ALSO BE USED. IF THE PROGRAM FINDS ALL 
16 SWITCHES IN THE “UP” POSITION WHEN IT IS STARTED, ALL 
SWITCH REGISTER REFERENCES WILL BE TO THE “SOPTWARE™ REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


SWITCH DEFINITIONS ARE GIVEN IN SECTION 9 “OPERATIONAL 
SWITCH SETTINGS” HOWEVER THE DETAIL DESCRIPTION ARE GIVEN 
HERE. 


SWITCH 15 - HALT ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 
THEN THE APPROPIATE [WFORMATION WILL BE PRINTED OUT 

AND THEN THE PROGRAM WILL HALT. AFTER THIS HALT, PRESSING 
“CONTINUE” WILL CONTINUE WITH THE PROGRAM TILL THE WEXT 
ERROR IS FOUND WHEN THE SAME THING WIi.L HAPPEN. 


SWITCH 14 - LOOP OW TEST 

WHEN THIS SWITCH IS SET THE PROGRAM WILL BEGIN TO LOOP 
ON THE CURRENT TEST BEING EXECUTED. FOR EXAMPLE IF THIS 
SWITCH IS SET WHEN THE PROGRAM IS IW TEST 10 THEN THE 
PROGRAM WILL KEEP EXECUTING ALL OF TEST 10 REPEATEDLY. 
OWE WAY TO BE SURE THAT THE PROGRAM IS IN THE EXPECTED 
TEST IS TO SET THIS SWITCH DURING AN ERROR PRINTOUT OR 
DURING A PROGRAM HALT. 


SWITCH 13 - INHIBIT ERROR TYPEOUTS 

WHEN THIS SWITCH IS SET FURTHER ERROR PRINTOUTS WILL 

CEASE, HOWEVER OPERATOR INSTRUCTIONS SUCH AS “STOP DRIVE X® 
WILL CONTINUE. AT THE END OF PASS “TOTAL NUMBER OF ERRORS 
ON THIS PASS OW DRIVE X* WILL BE TRUE, THAT IS, ALTHOUGH 
PRINTOUTS WERE INHISITED TF THAT PASS FOUND 6 ERRORS, 

If WILL SAY SO. 


SWITCH 12 - RH70 CONTROFLLER SELECT 

THIS SWICH “UST BE SET AT THE START OF THE PROGRAM WHEN THE 
DISK DRIVES TO BE TESTED ARE CONNECTED TO AN RH70 

CONTROLLER. IT MUST NOT BE SET WHEN DISK DRIVES TO BE TESTED 
ARE CONNECTED TO AN RH11 CONTROLLER. 


SWITCH 11 - INHIBIT ITERATIONS 

GHEN THIS SWITCH IS SET THE PROGRAM GN SECOND PASS wILi 
NOT REPEAT EACH TEST FOUR TIMES SUT WILL DO EACH TEST 
OWCE OWLY. 


SWITCH 10 - BELL OW ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 

THE “BELL” OR “ALARM” WILL BE SOUNDED. THIS SWITCH IS USEFUL 
WHEN SWITCH 11 IS SET YET INFORMATION IS NEEDED WHEN ANY ERROR 

IS DETECTED. TAKE THE EXAMPLE OF A PROGRAM LOOPING ON A TEST WITH 
SWITCH 11 SET TO HELP SCOPING. THEN IF THIS SWITCH IS 

SET AND THE BELL OR ALARM SOUNDS IT MEANS THAT THE ERROR 





IS PRESENT BUT IF THE BELL OR ALARM STOPS IT MEANS THAT 
THE ERROR Is WOT PRESENT. 


SWITCH 9 - LOOP OW ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AW ERROR 

THEN GENERALLY THE PROGRAM WILL LOOP BACK TO THE LAST 
EXECUTED “SCOPE™ STATEMENT. IF GN THE SECOND TIME 

THROUGH AW ERROR IS FOUND IT WILL AGAIN LOOP BACK TO 

THAT "SCOPE" STATEMENT. THIS LOOPING WILL CONTINUE AS LONG 
AS THE ERROR IS PRESENT AND THIS SWITCH IS SET. HOWEVER 

If THE ERROR IS WOT PRESENT AT ANY TIME THEN IT WILL 
CONTINUE NORMALLY WITH THE PROGRA'. EACH TIME THE ERROR 

IS ENCOUNTERED PRINTOUT WILL TAKE PLACE UNLESS SWITCH 11 

IS ALSO SET. DURING BEGUG, USING A SCOPE, IT IS RECOMMENDED 
THAT SWITCH 11 IS ALSO SET. 


NOTE: ALSO SEE SECTIOW 8.3 


SWITCH 8 = LOOP ON TEST IN SWR <720> 

THIS TS A SPECIAL SWITCH. WHEN SET SWITCHES 0 THRU 7 
HAVE ONE MEANING AND WHEN RESET SWITCHES 0 THRU 7 HAVE 
ANOTHER MEANING. THIS MEANS THAT ANY SETTING OF SWITCH 

O THRU 7 MUST BE DONE WITH SWITCH 8 IN THE APPROPIATE 
POSITION. WHEN THIS SWITCH IS SET THEN SWITCHES 0 THRU 

7 GIVE THE TEST NUMBER TO BE LOOPED ON. FOR EXAMPLE 

WITH SWITCH 6 SET AWD SWITCH 3 SET THE PROGRAM WILL LOOt 
ON TEST 10. HOWEVER THIS SETTING MUST BE DOWE AT THE 
BEGINNING OF THE PROGRAM THEN ALL THE TESTS FROM 1 TO 10 
WILL BE EXECUTED AND THEN TEST 10 WILL BE REPEATED OVER 
AND OVER AGAIN. WHEN THIS SWITCH IS NOT SET THEN SWITCHES 
0 THRU 7 HAVE THE MEAING ITS WAME INDICATES. 

FOR EXAMPLE SWITCH 7 IS “STOP FURTHER COMPARES: THAT IS 
IF SWITCH 8 IS NOT SET AND SWITCH 7 IS SET THEN WHEN A 
DATA ERROR IS DETECTED NO FURTHER COMPARES WILL BE DONE. 
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL THE WORDS ARE IN 
ERROR THEN AFTER SEEING THE PRIWTOUT FOR THE FIRST FEW 
WORDS SETTING SWITCH 7 ONLY WILL STOP FURTHER PRINTOUTS 
OF THIS ERROR AND GO OW WITH THE TEST RATHER THAN PRINT 
ALL THE 256 WORDS. HOWEVER IF THIS WAS DONE WITH SWITCH 11 
THEN THE NEXT ERROR THAT THE PROGRAM DETECTS IN A SUB- 
SEQUENT TEST WILL ALSO BE LOST. BUT WITH SWITCH 7, ONLY 
THIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT. ANOTHER 
EXAMPLE OF SWITCH 8 BEING LOW IS WITH SWITCH 6, WHICH 

IS "ECC TEST-COMPARE END RESULT ONLY". THAT IS IF SWITCH 
8 IS NOT SET AND SWITCH 6 IS SET THEN ON ECC TESTS (TEST 
120 THRU TEST 134) INSTEAD OF COMPARING CONTERTS OF THE 
POSITION REGISTER AND PATTERN REGISTER AFTER EVERY CLOCK, 
COMPARES WILL ONLY BE DOWE AT THE END OF ALL THE CLOCKS. 


NOTE: ALSO SEE SECTION 86.3 


SWITCH 7 - STOP FURTHER COMPARES IF SwO8 IS LOW. 
IF SWITCH 6 IS SET AND THIS SWITCH IS ALSO SET THEN THIS 


F/ 


- 


5e2 


6-1 


7.0 


SWITCH GIVES THE TEST NUMBER TO BE LOOPED OW AS INDICATED 
IN THE DESCRIPTION OF SWITCH 6. IF SWITCH 8 ITS NOT SET 

AND THIS SWITCH IS SET THEN THE PROGRAM WILL DO AS THE 

NAME INDICATES. FOR EXAMPLE IN A 256 WORD BUFFER IF ALL 
THE WORDS ARE IN ERROR THEN AFTER SEEING THE ERROR PRINTOUTS 
FOR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 6 
WOT SET WILL STOP THE PRINTOUT OF ALL 256 WORDS BUT WILL 
NOT STOP THE PRINTOUT OF ANOTHER ERROR IN ANY SUBSEQUENT 
TEST. IT IS EXPECTED THAT SWITCH 7 AFTER BEING SET FOR 

A WHILE TO STOP PRINTING ALL THE 256 WORDS WILL BE RESET 
AGAIN TO EWABLE THE PRINTING OF OTHER DATA ERRORS. 


SWITCH 6 = ECC TEST-COMPARE END RESULTS OWLY IF SWO8 IS LOW 
If SWITCH 6 IS SET AWD THIS SWITCH ITS ALSO SET THEN THIS 
SWITCH GIVES THE TEST NUMBER TO BE LOOPED OW AS INDICATED 
IN THE DESCRIPTION OF SWITCH 6. IF SWITCH 6 IS NOT SET 

AND THIS SWITCH IS SET THEN OW ECC TESTS (TEST 120 THRU 
TEST 134) INSTEAD OF COMPARING CONTENTS OF THE POSITION AND 
PATTERN REGISTERS AFTER EVERY CLOCK, COMPARES WILL BE DONE 
OWLY AT THE EWD OF ALL THE CLOCKS. 


SUB-ROUTIWE ABSTRACTS 
SEE SECTION 9 “SUBROUTINES” 
ERRORS 


ERROR PRIWTOUTS CONTAIN THE ERROR ADDRESS AND OTHER 
PERTINENT INFORMATION CONCERNING THE PARTICULAR FAILURE. 
THIS INFORMATION MAY BE THE CONTENTS OF RELEVANT RPO4/5/6 
REGISTERS OR GOON/RECEIVED DATA. IF THE ERROR OCCURRED IW A 
SUBROUTINE, THE ADDRESS OF THE SUBROUTINE CALL IS ALSO 
GIVEN. REFER TO THE PROGRAM LISTING AT THE STATED 

ADDRESS TO DETERMINE THE CAUSE OF THE ERROR. 


“FATAL” ERRORS 


IN THE EVENT THAT THE DISK DRIVE BECOMES UNAVAILABLE TO THE 
CONTROLLER, POWERS DOWN, OR CERTAIN CRITICAL STATUS BITS 
CANNOT BE CLEARED PRIOR TO THE START OF A TEST SEQUENCE - THIS 
INFORMATION WILL BE COMMUNICATED TO THE OPERATOR. IN 

ADDITION THE TTY BELL WILL RING AND THE PROGRAM WILL HALT. 


If IS SUGGESTED THAT IF THIS HAPPENS THE OPERATOR LOAD 

ANDRESS 200 (210) AND RESTART THE PROGRAM AS A FIRST ATTEMPT 

TO SOLVE THE PROBLEM. IF THE FAILURE CONTINUES TO OCCUR, 

LOOK IN THE TEST LISTING FOR THE “HALT” INSTRUCTION AND REPLACE 
IT PLUS THE TWO WORDS ("TYPE ,CPHALT") ABOVE WITH °NOP’S. ‘ 
WITH TTY ERROR PRINTOUTS INHIBITED A SCOPE LOOP CAN BE 
INITIATED FOR THE TEST IN QUESTION. 


If IS ALSO POSSIBLE TO CONTINUE FROM THE HALT 
POINT, BUT IT IS NOT RECOMMENDED AS ALL FOLLOWING TESTS WILL 
EXHIBIT THE SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS. 


RESTRICTIONS 
If THERE IS A ORIVE CONNECTED THEN THE OPERATOR MUST HAVE 


THE DRIVE PORT SWITCH LOCKED EITHER ON PORT A OR PORT B 
BUT NEVER LEAVE IT IN THE PROGRAMMABLE STATE. IF THERE 
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IS WO DRIVE CONNECTED THEN THE CABLE NORMALLY GOING FROM 
THE DCL TO THE MDLI MUST BE PROPERLY TERMINATED. 


SWITCH 12 MUST BE SET WHEN RUNNING ON AN RH70 CONTROLLER AND 
IT “UST NOT BE SET WHEN RUNNING ON AN RH11 CONTROLLER. 
BECAUSE OF THE REQUIREMENT FOR IT TO BE SET WHEN USTNG AN 
RH70, THE PROGRAM CANNOT BE RUN IN CHAIN MODE WHEN USING THE 
SOFTWARE SWITCH REGISTER FEATURE WHILE PUNNINCG ON AN RHO. 
THIS IS BECAUSE THE ROUTINE WHICH GETS “SOFTWARE” SwTICH 
SETTINGS TS NOT OPERABLE WHEN IN CHAIN MODE. 


MISCELLANEOUS 
EXECUTION TIME 


THE FIRST PASS OF THE PROGRAM WILL TAFE 30 SECONDS PER 
DRIVE. SUBSEQUENT PASSES WILL TAKE 1 MINUTE. 


STACK POINTER 
THE STACK IS INITIALLY SET TO 1000 
UPERATOR SELECTABLE SCOPE LOOPS 


HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
FOR INSTRUCTIONS REGARDING USAGE OF THIS TECHNIQUE, HIT “C ANY 
TIME WHILE THE PROGRAM ITS RUNNING. ON HITTING AW ERROR IF THE 
LOOP ON ERROR SWITCH IS SET, THE PROGRAM GOES BACK - USUALLY 
BACK TO THE BEGINNING OF THE TEST. 


WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 
TYE PROGRAM GOES BACK TO CAN BE CHANGED. 

THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: - 

1. IT MUST BE WITHIN THE TEST UNDER CONSIDERATION 

2. LOOP ON ERROR SWITCH MUST BE SET 

3. THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

IF THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOUP Of 
TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USEF 
THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
COMES TO THE END OF THE TEST UNDER CONSIDERATION. 


AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
NORMAL OPERATION WILL CONTINUE. 


PROGRAM REVISION HISTORY 


PROGRAM DESCRIPTION 


THE FOLLOWING SECTIONS DESCRIBE EACH TEST AWD SUBROUTINES 

IN DETATL AND CAN ALSO BE USED AS AN INDEX TO THE LISTING. 
THE LEFT MOST COLUMN IS THE LINE NUMBER WITHIN THE LISTING 
WHERE THAT ITEM WILL BE FOUND. 








MNDEC-11-DZRJG-A,RPO04/5/6 DSKLS CONTROLLER TST-PT 1 MACY11 30(1046) O8-DEC-77 13:57 
DZRIGA.P1I1 29-MAR-76 00:00 TABLE OF CONTENTS 
37 
38 ®*PERROR TABLE, BIT DEFINITIONS & STARTING ADDRESSES*** 
39 
41 OPERATIONAL SWITCH SETTINGS 
55 BASIC DEFINITIONS 
166 TRAP CATCHER 
176 ACT11 HOOKS 
187 STARTING ADDRESS 
200 MEMORY MANAGEMENT DEFINITIONS 
238 COMMON TAGS 
296 ERROR POINTER TABLE 
996 - REGISTER ADDRESSES 
1165 
1166 ***DI AGNOSTIC CODE*** 
1167 
1169 SETUP TESTS 
1178 INITIALIZE THE COMMON TAGS 
1264 GET VALUE FOR SOFTWARE SWITCH REGISTER 
1292 Tl REFERENCE EACH RECISTER 
1734? T2 RHCS2-CONTROL ANDO STATUS 2 
1376 T3 PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT 
1396 14 TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 
1551 TS TYPE SERIAL NUMBER AND DRIVE TYPE 
1679 T6 CHECK MOL TO BE LOW 
1712 REGISTER TESTS 
1714 T7 RHCS2 - CONTROL AND STATUS 2 
1751 T10 RHCS1 - CONTROL AND STATUS 1 REGISTER 
1774 111 RHCS1 - BIT @ 13 - MCPE 
1829 T12 RHWC = WORD COUNT REGISTER 
1854 T13 RHBA - UNIBUS ADDRESS REGISTER 
1879 T14 RHER1 - ERROR REGISTER #1 
1903 T15 RHMR - MAINTENARCE REGISTER 
1962 T16 RHDST - DESIRED SECTOR/TRACK ADDRESS 
1989 T17 RHER2 - ERROR REGISTER #2 
2016 T20 RHOP - MARGIN/OFFSET REGISTER 
2042 T21 RHCA - DESIRED CYLINDER REGISTER 
2064 T22 RHER3 - ERROR REGISTER #3 
2099 T23 CONTROL AND STATUS 2 (RHCS 2) - “NED” 
2273 T24 CONTROL AND STATUS 2 (RHCS2) - “CLR° 
2525, T25 PACK ACKNOWLEDGE COMMAND TEST 
2595 T26 UNIBUS INIT TEST 
2688 SILO TESTS 
2691 T27 SILO TST 1 
2754 T30 SILO TEST 2 
2827 T31 SILO TEST 3 
2904 T32 SILO TEST4 
2945 T33 SILO TEST 5 
3030 MORE REGISTER TESTS 
3033 T34 TEST ODD BYTE INSTRUCTION ON RHCS1 - RH11 
3081 T35 TEST ODD BYTE INSTRUCTION OW RHCS1 - RH70 
3120 736 TEST ODD BYTE INSTRUCTION OW RHCS2 
3174 737 ODD BYTE TEST ON RHWC 
3208 T40 TEST ODD BYTE INSTRUCTION OW RHPA 
3241 DCL COMMAND TESTS 
3268 T4l TEST ILF BIT #0 IW REG. RHERI 


3365 T42 READ IN PRESET 





— — — — — 


MNDEC-11-DZRJG-A, RPO4/5/6 DSKLS CONTROLLER TST-PT 1 


OZRIGA.P11 


3444 
3580 
3858 
4121 
4757 
4401 
4533 
4664 
4736 
4752 
4966 
4983 
4986 
5098 
5220 
$345 
5440 
5568 
5695 
5922 
5918 
6034 
6166 
6297 
6301 
6436 
6551 
6652 
6821 
6965 
71066 
7170 
7186 
7253 
7269 
71336 
7352 
7415 
7431 
71493 
7562 
1637 
7656 
7771 
7788 
7899 
8085 
6101 
8205 
6316 
8427 
8476 
6477 
6478 
84861 
8590 





29-HMAR-76 00:00 TABLE OF CONTENTS 
T43 uO OPERATION FUNCTION TEST 
T44 ORIVE CLEAR 
T4s5 SEEK COMMAND TEST 
T46 UNLOAD COMNAED TEST 
T47 OFFSET COMMARD TEST 
Tso RETURN TO CENTER LIWE COMMAND TEST 
TS1 RECALIBRATE COMMAND TEST 
752 RELEASE comauno TEST 
T53 MAKE CURRENT CYLIBDER = 0 
154 LOOK AHEAD REGISTER 
155 MAKE CURREBT CYLINDER = 0 
READ/URITE ADDRESSING VIA RAmR 
TS6 WRITE HEADER ABD DATA 1 
157 WRITE HEADER AND DATA 2 
T60 WRITE HEADER ABD DATA 3 
Té61 PROGRAM ERROR RACS2 810 
162 READ HEADER ABD DATA 1 
T63 READ HEADER AND DATA 2 
T64 READ HEADER AND DATA 3 
Té65 WRITE DATA 
T66 READ DATA 
T67 WRITE CHECK HEADER AND DATA 
T70 WRITE CHECK DATA 


ERROR BIT FUNCTIONAL TESTS 


T71 ATTESTION WITH ERROR TEST 

T72 BUS ADDRESS IBHIBIT 

773 RHCS2 - BIT @ 11 - WEN 

T74 WRITE CHECK ERROR 

175 ERROR REGISTER @1-BIT 4 -FORMAT ERROR 

T76 ERROR REGISTER @1-BIT 4 -FORMAT ERROR 

T77 RHERL - BIT #2 - REG. MODIFICATION REFUSED 
T100 MAKE CURRENT CYLINDER = 1 

T101 ERROR REG] - BIT #7 - HEADER COMPARE ERROR 
T102 MAKE CURRENT CYLINDER = 0 

7103 ERROR REGL - BIT $7 - HEADER COMPARE ERROR 
T104 MAKE CURRENT CYLINDER = 1 

T105 ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR 
T106 MAKE CURRENT CYLINDER = 6 

T107 ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR 
T110 - RHERL - BIT $8 - CRC ERROR (READING) 

T111 RHER1 - BIT 6 = CRC ERROR (WRITING) 

T112 MAKE CURRENT CYLINDER = 614. 

7113 RHDS1 (BIT #10) - LAST SECTOR TRANSFERRED, “LST” 
T114 MAKE CURRENT CYLINDER = 410. 

T115 RHDS1 (BIT #10) - LAST SECTOR TRANSFERRED, “LST” 
T116 ERROR REGISTER 1 - BIT #9 ADE 

T117 MAKE CURRENT CYLINDER = 0 

T120 ERROR REGISTER 1 - BIT #10 “IAE”’ 

T121 ERROR REGISTER 1- BIT $10 “TAE* 

T122 ERROR REGISTER 1- BIT #10 “TAE* 

7123 END OF DRIVE 

*** SUBROUTINES*** 


END OF PASS ROUTINE 
SAVE REGISTERS ROUTINE 





MACY11 30€1046) 08-DEC-77 13:57 


3! 





MNDEC-11-DZRJG-A, RP04/5/6 DSKLS CONTROLLER TST-PT 1 MACY11 30(1046) O08-DEC-77 13:57 
OZRIGA.P11 29-MAR-76 00:00 TABLE OF CONTENTS 
8620 FLOAT 1 AND 0 
6679 CLEAR MEMORY ROUTINE 
8712 LOCAL TRAPS 
8729 CLEAR DISK ROUTINE 
8742 CHECK DISK STATUS ROUTINES 
8876 SAVE ROUTINE 
6904 WRITE CHECK ROUTINE 
8948 COMPARE ROUTINE 
9044 CRC GENERATION ROUTINE 
9362 JAM CURRENT CYLINDER ROUTINE 
9401 ECC GENERATION AND COMPARISON ROUTINE 
9741 RH BASE ADDRESS CHANGE ROUTINE 
9820 DISK SIMULATION 
10886 SYSMAC LIBRARY ROUTINES 
10888 SCOPE HANDLER ROUTINE 
10963 CONVERT BIWARY TO DECIMAL AND TYPE ROUTINE 
11030 TYPE ROUTINE 
11100 TTY INPUT ROUTINE 
11329 READ AN OCTAL WUMBER FROM THE TTY 
11382 ERROR HANDLER ROUTINE 
11427 ERROR MESSAGE TYPEOUT ROUTINE 
11483 BINARY TO OCTAL (ASCII) AND TYPE 
11560 TRAP DECODER 
11583 TRAP TABLE 


11606 POWER DOWN AND UP ROUTINES 








MNDEC-11-DZRJG-A, PRP04/5/6 DSKLS CONTROLLER TST-PT 1 


DZRJGA.P1I1 29-MAR-76 00:00 


KP OVeat A AAWnre 


7 


— — — —— — 


MACY11 30(1046) 08-DEC-77 13:57 PAGE 1 


eTITLE MNDEC-11-DZRJG-A,RP04/5/6 DSKLS CONTROLLER TST-PT 1 


s*COPYRIGHT (C) 1976 
s*DIGITAL EQUIPMENT CORP. 
S*MAYNARD, MASS. 01754 

3* 

3*PROGRAM BY PETE BLACKSTONE 


3*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMHAC 


s*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


3* 


FTENSTENSJENSJENS JENS JENSJOENS JENS JENS JENS JENS JENS SONS SENSSENSSENSSENSSONS 
SIFNSZENSJENSJZENSJZENSJZENSJPASJENSJENS JENS JENS SPUSSENS SANS AENS SENSES ENS F ONS 
FTPNSTPENS TENS ZENSJEANS SENS JENSJENSFENSJENSFOENSJAASIENSSENSFENS IANS FAN SIANS 


s*DRIVE MUST BE LOCKED OW PORT A OR PORT B 
PL ENPT SENET ENGTENSTENTTENES ENTS ENET ENTS INEZ ENTS ENA ENTS SNES SNPS ENTS SNES SNE 


FIENTSENTAENP ZENE ENTS ENTS ENP SENTZ ENTS ENTS EAMES ENTS ENOS SNES SNS ENS ENE EXe 
FIENPT ENP SENPZ ENT ENTS ENTS ENGSENTZENSSENAZ SNES ENAZ ENTS ENAZ SAPS ENAZ EAM ENe 


S*INTERNAL PROGRAM MACROS BEGIN HERE 


ZeeeKereraaageveneeravasasearenenene 


3* 
s*NOTES MACROS BEGINNING WITH ".$" ARE SUPPLIED BY AN 
3* EXTERWAL SYSMAC.SML SYSTEM MACRO PACKAGE WHICH 
3* MUST BE MADE AVAILABLE TO THE SOURCE PROGRAM 
3* AT ASSEMBLY TIME. 


2 
FP TAMAARAAAHAHHRAAAARARAHAAAAAAAAOHAARARAAAAOERARARAAAAAAAHARAAAEAAE 


eS8TTL OPERATIONAL SWITCH SETTINGS 
* 


3° SWITCH USE 

3 e Sees = = Se S©ee@oeeooeo 2G eee 

3* is HALT ON ERROR 

3* 14 LOOP ON TEST 

3* 13 INHIBIT ERROR TYPEOUTS 
3* 12 RH70 CONTROLLER SELECT 
3* 11 INHIBIT ITERATIONS 

3* 10 BELL ON ERROR 

3° S LOOP ON ERROR 

3* a LOOP ON TEST Im SWR<720> 
#* ’ STOP FURTHER COMPARES IF suos 1S Low 


ECC TEST-COMPARE END RESULTS ONLY IF SwO6 IS LOW 





~ 





MNDEC-11-DZRJG-A,RP04/5/6 DSKLS CONTROLLER TST-PT 1 


OZRIGA.P11 
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001000 


000011 
000012 
000015 
000200 
177776 


177774 
177772 
177570 
177570 


000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 


000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 


100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
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BASIC DEFINITIONS 


eSBTTL BASIC DEFINITIONS 
S*IWITIAL ADDRESS OF THE STACK POINTER *** 1000 *** 


STACK= 


eEQUIV EMT, ERROR 
eEQUIV LOT, SCOPE 


1000 


33BASIC DEFINITION OF ERROR CALL 
39BASIC DEFINITION OF SCOPE CALL 


d*MISCELLANEOUS DEFINITIONS 


33CODE FOR MORIZONTAL TAS 

39CODE FOR LIWE FEED 

33CODE POR CARRIAGE RETURN 

33CODE FOR CARRIAGE RETURN-LIWE FEED 
3>PROCESSOR STATUS WORD 


39STACK LIMIT REGISTER 

JSPROGRAM INTERRUPT REQUEST REGISTER 
SSHARDOWARE SWITCH REGISTER 
S3HARDHARE DISPLAY REGISTER 


s*CEWERAL PURPOSE REGISTER DEFINITIONS 


s3GENERAL REGCTSTER 
s3GENERAL REGISTER 
dSGENERAL REGISTER 
JSIGENERAL REGISTER 
33GENERAL REGISTER 
SSCENERAL REGISTER 
SsCEMERAL REGISTER 
S9GEWERAL REGISTER 
33STACK POINTER 
33PROGRAM COUNTER 


LEVEL DEFINITIONS 


ssPRIORITY LEVEL 
ssPRIORITY LEVEL 
sPRIORITY LEVEL 
ssPRIORITY LEVEL 
sePRIORITY LEVEL 
ssPRIORITY LEVEL 
dsPRIORITY LEVEL 
s3PRIORITY LEVEL 


sIAN2UNY Oo 


s**SWITCH REGISTER” SWITCH DEFINITIONS 


HT= 11 

LF= 12 

CRr= 15 
CRLF = 200 
PS= 177776 
eEQUIV PS,PSY 
STKLMT= 177774 
PIRQ= 177772 
OSwR= 177570 
DDISP= 177570 
RO= 20 

Ris %1 

R2= $2 

R3= 83 

R4Gs 24 

RS= 35 

R6= %6 

R7= 87 

SP= 36 

PCc= %7 
s*PRIORITY 
PRO= 0 

PRi= 40 
PR2= 100 
PR3= 140 
PR4= 200 
PRS= 240 
PR6= 300 
PR7T= 340 
SwiS= 100000 
sw14= 40000 
Sswi3= 20000 
SW12= 10000 
SsWli=s 4000 
Sw10= 2000 
Swo9= 1000 
swos= 400 
swo7= 200 
sw06= 100 
swos= 40 
Swo4= 20 
sw03= 10 
Sw02= 4 


— — ——— 


a 
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107 
108 
109 
110 
111 
112 
113 
114 
115 
115 
117 
118 
119 
120 
121 
12? 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
14) 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 





29-MAP-76 00:00 


000002 
000001 


100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 


BASIC OD 


swoi= 

swoo= 

eEQUIV 
eEQUIV 
eEQUIV 
EQUIV 
e EQUIV 
EQUIV 
eEQUIV 
EQUIV 
e EQUIV 
eEQUIV 


3*DATA 
BITL5= 
BIT14= 
BIT13= 
BIT1L2= 
BITL1= 
BIT1O= 
BITO9= 
B8IT0s= 
BITO7= 
BIT06= 
BITOS= 
BIT04= 
BITO3= 
BITO2= 
BITO1= 
BITOO= 
eEQUIV 
eEQUIV 
eEQUIV 
eEQUIV 
eEQUIV 
EQUIV 
eEQUIV 
EQUIV 
eEQUIV 
eEQUIV 


#*BASIC 
ERRVEC= 


EFINITIONS 


2 

1 

$w09,Su9 
swoe®,sw8 
S¥07,SW7 
SW06,SW6 
Sw05,S05 
Sw04,SW4 
$¥03,S03 
SW02,SW2 
Sw01,SW1 
sw00,SwW0 
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BIT DEFINITIONS (BITOO TO BIT15) 


100000 


BITO9,BIT9 
BIT06,BITS 
BITO7,81T7 
BITO6,BIT6 
BITOS,BITS 
BITO4,BIT4 
BIT03,B1T3 
BITO2,BIT2 
BIT01,3IT1 
BIT00,BITO 


"CPU" TRAP VECTOR ADDRESSES 


4 


RESVEC= 10 
TBITVEC=14 
TRIVEC= 14 
BPTVEC= 14 
IOTVEC= 20 
PWRVEC= 24 
EMTVEC= 30 
TRKAPVEC=34 
TKVEC= 60 
TPVEC= 64 
PIRQVEC=240 


33 TIME OUT AND OTHER ERRORS 
37RESERVED AND ILLEGAL INSTRUCTIONS 
33"T° BIT 

33 TRACE TRAP 

ssBREAKPOINT TRAP (8PT) 
s2INPUT/OUTPUT TRAP (TOT) **SCOPE** 
33POWER FAIL 

SsEMULATOR TRAP (EMT) **ERROK** 
33"TRAP® TRAP 

33TTY KEYBOARD VECTOR 

33TTY PRINTER VECTOR 

33PROGRAM INTERRUPT REQUEST VECTUR 
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DZRIGA-P11 29-MAR-76 00:00 TRAP CATCHER 
oe eS8TTL TRAP CATCHER 
16 
164 000000 -=0 
165 3*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ".¢2,HALT® 
166 s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
167 s*LOCATION 0 CONTAINS 0 TO CATCH TMPROPERLY LOADED VECTORS 
168 000174 2174 
169 000174 000000 DISPREG: .WORD 0 s3SOPTWARE DISPLAY REGISTER 
170 000176 000000 SWREG: eWORD 0 SSSOFTWARE SWITCH REGISTER 
171 
172 eSBTTL ACT1I1 HOOKS 
173 
174 —öxRR 
175 sHOOKS REQUIRED BY ACT11 
176 000200 $SvPc=. sSAVE PC 
177 000046 246 
178 000046 041322 SENDAD 331)SET LOC.46 TO ADDRESS OF SENDAD IW .S$E0P 
179 000052 2252 
180 000052 020000 eWORD 20000 332)SET LOC.52 TO 20000 
161 000200 e=$SVPC 33 RESTORE PC 
182 
183 eSBTTL STARTING ADDRESS 
194 
185 000200 2200 
186 000200 000137 004240 JMP OFBEGIN SWORMAL STAPT 
187 000210 2=210 
188 000210 000137 004230 JmMP @RBEGIN? sSELECT DRIVE START 
189 
190 
191 s**STARTING ADDRESS 200 FOR NORMAL STARTS 
+44 pee rats WILL TEST ALL DRIVES ON THE SYSTEM A SINGLE DRIVE AT A TIME 
1 ® 
194 s**STARTING ADDRESS 210 WILL TEST ONLY OWE SPECIFIED DRIVE 
195 


QU 
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OZRJGA.P11 29-MAR-76 00:00 MEMORY MAWACEMENT DEFINITIONS 

pes eSBTTL MEMORY MANAGEMENT DEFINITIONS 
19 

198 3*KT11 VECTOR ADDRESS 

199 

200 000250 MMVEC= 250 

201 

+4 3*KT11 STATUS REGISTER ADDRESSES 

0 

204 177572 SR0= 177572 

205 177574 SR1l= 177574 

206 177576 SR2= 177576 

207 172516 SR3= 172516 

208 

209 s*KERNEL “I" PACE DESCRIPTOR RECISTERS 
210 

211 172300 KIPDRO= 172300 

212 172302 KIPDR1= 172302 

213 172304 KIPDR2= 172304 

214 172306 KIPDR3= 172306 

215 172310 KIPDR4= 172310 
216 172312 KIPORS= 172312 
217 172314 KIPDOR6= 172314 

2718 172316 KIPOR7= 172316 

219 
oy 3*KERWEL "I" PAGE ADDPESS REGISTERS 

21 

222 172340 KIPARO= 172340 

223 172342 KIPAR1= 172342 

224 172344 KIPAR2= 172344 

225 172346 KIPAR3= 172346 

226 172350 KIPAR4= 172350 

227 172352 KIPARS= 172352 
228 172354 KIPAR6= 172354 

229 172356 KIPART= 172356 

oo Pp MMAMMReKAreRaReReRAeReneRReNerenereateneneeeeneeReneneeeenerere 
4 001110 -=1110 3? 


cd 
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234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
2769 
270 
271 
272 
273 
274 
275 
776 
277 
278 
279 
280 
261 
282 
283 
284 
285 
286 
287 
268 
289 


001100 
001100 
001102 
001103 
001104 
001106 
001110 
001112 
001114 
001115 
001116 
001120 
001122 
001124 
001126 
001130 
001132 
001134 
001135 
001136 
001140 
001142 
001144 
001146 
001150 
001152 
001154 
001155 
001156 
001157 
001160 


001162 
001164 
001166 
001170 
001172 
001174 
001176 
001200 
001202 
001204 
001206 
001210 
001212 
001214 
001216 
001222 
001223 


29-MAR-76 00:00 


001100 
000000 


000000 
000 
001 

000000 

000000 

000000 

000000 

000000 

000000 

000000 
000 
000 

000000 

177570 

177570 

177560 

177562 

177564 

177566 
000 
002 
012 
000 

000000 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
177607 

077 

015 


000377 


COMMON TAGS 
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33 SRSRAAKAAAAARAAHAASHHARAARARAAAAAAAARAARARARAARSARASAAREARAAeAAAARes 


s*THIS TABLE CONTAINS VARTOUS COMYON STORAGE LOCATIONS 
s*USED IN THE PROGRAM. 


SCMTAG: 
SPASS: 

STSTNMs 
SERFLGs 
SICNTs: 

SLPADR: 
SLPERRS 
SERTTL? 
SITEMBs 
SERMAXS 
SERRPCS 
SCDADR: 
SBDADR: 
$GDDATs 
SBDDATs 


SAUTOB: 
SINTAG: 


71100 


WORD 
BYTE 
BYTE 
WORD 
WORD 
WORD 
e WORD 
BYTE 
BYTE 
WORD 
¢ WORD 
«WORD 
WORD 
«WORD 
WORD 
- WORD 
BYTE 
BYTE 
eWORD 
WORD 


DISPLAY: .~WORD 


STKS: 
STKBs 
STPSs 
STPB: 
SNULL? 
$FILLS: 
SFILLC: 
STPFLG: 
SREGAD: 


$REGO? 
SREGI? 
SREG2: 
SREG33 
SREG4: 
SRECGS: 
STMPO? 
STMP1s 
STMP2: 
STMP33 
STMP4: 
STMPS: 
STIMES: 


177560 
177562 
177564 
177566 
ePYTE 
BYTE 
BYTE 
BYTE 
-WOPD 


- WORD 
WORD 
WORD 
e WORD 
WORD 
e WORD 
WORD 
eWORD 
WORD 
WORD 
eWOPD 
WORD 
u 


SESCAPE:0 


$BELL? 
SQUES: 
S$CRLF? 


eASCIZ 
eASCIT 
eASCIT 


eceooocooceceoocoroceoecococoo 


Ls) 


eoooocoocococoo cornoe 


<€207>€3773¢377> 
4274 
<15> 


33START OF COMMON TAGS 

s3CORTAINS PASS COUNT 

sICONTATUS THE TEST HUMBER 
dSCONTATHS ERROR FLAG 

ssCONTAINS SUBTEST ITERATION COUNT 
JICONTAINS SCOPE LOOP ADDRESS 
SSCONTATUS SCOPE RETURN FOR ERRORS 
s9CONTATNS TOTAL ERRORS DETECTED 
s3CONTATUS ITEM CONTROL BYTE 
S3CONTAINS MAK. ERRORS PER TEST 
SsCONTAINUS PC OF LAST ERROR INSTRUCTION 
sSCONTAINS ADDRESS OF “COOD’ DATA 
s3CONTAINS ADDRESS OF “BAD’ DATA 
s3CONTAINS °GOOD’ DATA 

s9CONTAINS °BAD° DATA 
3;RESERVED--NOT TO BE USED 


dS AUTOMATIC MODE INDICATOR 
SeINTERRUPT MODE ITNOICATOR 


JZADDRESS OF SWITCH RECISTER 

d3ADDRESS OF DISPLAY REGISTER 

33TTY KBD STATUS 

33TTY KBD BUFFER 

s3TTY PRIWTER STATUS REG. ADDRESS 

sTTY PRINTER BUFFER REG. ADDRESS 
s3CONTATHS WULL CHARACTER FOR FILLS 
s3CONTAINS @ OF FILLER CHARACTERS REQUIRED 
JSINSERT FILL CHARS. APTER A “LINE FEED" 
SS*TERMINAL AVATLABLE® FLAG (BIT<07>=0=VES) 
s3CONTAINS THE ADDRESS FROM 

s3WHICH (S$RECO) WAS OBTAINED 

s2CONTAINS ((SREGAD)+0) 

S7CONTAINS ((SREGAD)¢2) 

S3CONTAINS ((SREGAD)+¢4) 

s3CONTAINS (($REGAD)¢6) 

S7CONTAINS ((SREGAD)¢10) 

JICONTAINS ((SREGAD)o12) 

33USER DEFINED 

23USER DEFINED 

33USER DEFINED 

S3USER DEFINED 

33USER DEFINED 

33USER DEFINED 

33MAX. NUMBER OF ITERATIONS 

S3ESCAPE OW ERROR ADDRESS 

33CODE FOR BELL 

s7QUESTION MARK 

s3CARPIAGE RETURN 





DA 
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OZRIGA.P1I1 29=MAR=-76 00:00 COMMON TAG | J 


290 001224 000012 S$LFs eASCIZ 12> 33LIWE FEED 
291 


33 RARAAARAARAAARAAAAAARAKRAARAAAARAARRAAAARAAARAREARAARARARAARAARAERR J 
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7] #OZRJGA.P11 29-MAR-76 00:00 ERROR POINTER TABLE q 
393 eS8TTL ERROR POINTER TABLE P 
J 
294 3*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
295 3*THE INFORMATION IS OBTAIWED BY USING THE INDEX WUMBER FOUND IB 
4 296 s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. q 
297 > *NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 
: 298 3*NOTE2: EACH ITEM IW THE TARLE CONTAINS 4 POINTERS FXPLAIWED AS FOLLOWS: P 
299 
300 3* cM J2POINTS TO THE ERROR MESSAGE 
301 3* du 22P0orurs TO THE DATA HEADER 
J 302 3* DT 33POINTS TO THE DATA ‘ q 
303 : 3* oF 33POINTS TO THE DATA FORMAT 
304 
J 305 < 
306 001226 SERRTR: 
307 
- 308 q 
309 
310 s*ITEML 
J 311 001226 057154 EM1 WRONG DATA IW READING OR WRITING HARDWARE RECISTER | 
312 001230 062430 dui 3PC 
313 3REG. ADDR. 
J 314 3CO0D DATA < 
315 RECEIVED DATA 
316 001232 067010 ori dSERRPC, REGADR, SCDDAT, SODDAT 
317 001234 067526 DF 1 304040,0,0 | 
318 
319 
320 q 
321 
322 
323 3 *1TEM2 | 
324 001236 057237 EM2 ZERROR ON DATA COMMAND 
325 
326 001240 065565 DH33 3PC <q 
327 3PC OF JSR 
328 sTEST HO 
329 WORD WO. q 
330 3GOOD DATA 
331 CONTENTS OF RHCS1 
332 SCONTENTS OF RHDS1 < 
333 CONTENTS OF RHER1 
334 001242 067370 DT33 7 SERRPC, PCJSR, $TSTNM, ERWORD, SGDDAT,CS1,0S1,ER1 
335 001244 067676 DF 33 30,0,0,1,0,0,0,0 q 
336 
337 
338 3*1TEM3 <q 
339 001246 057237 EM2 ERROR OM DATA COMMAND 
340 
341 001250 065342 DH32 3PC <q 
342 3PC OF JSR 
343 ;TEST NO 
344 3WORD NO. <q 
345 3GOOD DATA 
346 sBAD DATA 
347 sCORTENTS OF RHCS1 < 
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OZRIGA-P11 29=MAR-76 00:00 ERROR POINTER TABLE 
348 SsCONTENTS OF RHDS1 
349 SCONTENTS OF RHERI 
350 ’ 
351 001252 067344 OT32 3 SERRPC, PC JSR, STSTNM, ERWORD, $CODAT, SBDDAT,CS1,0S1,ER1 
352 001254 067665 DF32 3040409140,0,0,0,0, 
353 
354 
355 e* I TEN4 
356 001256 057237 EM2 SERROR ON DATA COMMAND 
357 
358 001260 065137 DH31 Pc 
359 3TEST HO 
360 3WORD HO. 
361 3CGOOD DATA 
36? 3B8AD DATA 
363 sCONTENTS OF RHCS1 
364 SCONTENTS OF PHDS! . 
365 sCOWTENTS OF RHERI 
366 
367 001262 067322 OT31 sSERRPC,S$TSTHM, ERWORD, $CODAT, SBDDAT,CS1,DS1,ER1 
om 001264 067655 OF31 30,041,0,0,0,0,0, 
370 
371 
372 3* ITEMS 
373 001266 000000 0 3 
374 001270 000000 0 3 
375 001272 067322 0T31 sSERRPC,STST HM, ERWORD, $CODAT, $B0DAT,CS1,0S1,EP1 
376 001274 067655 OF31 30,0,1,0,0,0,0,0, 
377 
378 
379 3* I TEMG 
380 001276 057266 EM6 ZERROR ON WRITE HEADER AUD DATA 
381 
382 001300 065342 DH32 3PC 
383 3PC OF JSR 
384 sTEST #0 
385 3WORD NO. 
366 26000 DATA 
387 ZBAD DATA 
388 sCONTENTS OF RHCS1 
389 sCONTENTS OF RHDS1 
— SCONTENTS OF RHERI 
1 
392 001302 067344 O0T32 sSERRPC, PCISR, STSTUM, ERWORD, SCODAT, SBDDAT,CS1,0S1,ER1 
ae 001304 067665 OF 32 30,0,021,0,0,0,0,0, 
395 
396 
397 3*I TENT 
398 001306 057266 EMo SERROR OW WRITE HEADER AND DATA 
399 001310 062553 DH2 3PCc 
400 , sTESt wo 
401 SWORD NO. 
402 3COOD DATA 


403 3BAD DATA 
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404 001312 067036 oT3 sSERRPC, STSTUM,ERWORD, SGODAT, SBDDAT 
405 001314 067537 OF3 30,0,1,0,0, 

406 

407 

403 3*ITEM10 

409 001316 000000 0 3 

410 001320 000000 0 2 

411 001322 067036 oT3 sSERRPC, STSTUM,ERWORD, $CODAT, SBDDAT 
412 001324 067537 oFr3 30,0,1,0,0, 

413 

414 

415 s*ITEMil 

416 001326 057325 EM11 SCURTROLLER OR ORIVE STATUS 

417 001330 062676 O#H11 2060 

418 sTEST BO 

419 SPAILIGG REG. ADDR 

420 sCONTESTS OF RHCS1 

421 sCONTENTS OF RUCS2 

422 sCORTEBTS OF PHDS1 

423 sCONTENTS OF RHERI 

424 001332 067052 OT11 SSERRPC, STSTHM, SBDADR,CS1,CS2,051,ER1 
3 001334 067544 or 11 30,0,0,0,0,0 

427 

428 s*ITEM12 

429 001336 057325 Ewil sWRONG DATA FROM SILO 

430 

431 001340 062430 OH1 aPC 

432 3REC. ADDR 

433 3GOOD DATA 

434 sRECEIVED DATA 

435 001342 067010 oT1 SSERRPC,REGADR, SCDOAT, SBDDAT 

436 001344 067526 OF1i 300,0,0 

437 

438 

439 s*ITEM1? 

440 001346 000000 0 

441 001350 000000 0 

442 001352 067010 OT1 SSERRPC, TST WM, REGADR, SCDDAT, SBODAT 
—* 001354 067526 OF1 30,0,0,0,0 

445 

446 3*(TEM14 

447 001356 057360 —wi4 SRECISTER FAILED 

448 001360 063056 DH14 3Pc 

449 SFAILING REG. ADDP 

450 sCONTENTS OF FAILING REC. 

451 sCONTENTS OF RHCS1 

452 sCONTENTS OF RHCS2 

453 sCONTENTS OF PHDS1 

454 SCONTENTS OF RHERI 

455 001362 06707? OT14 SSERRPC, SBDADR, SBDOAT,CS1,CS2,0S1,ER1 
aa 001364 067553 DF14 30,0,0,0,0,0,0 

458 

459 s*ITEM15 #2 
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460 001366 057400 EM15s SSPECIFIED REG. NOW EXISTANT SO ABORT 
461 sPROGRAW 

462 001370 063256 OH15 3PC 

463 ZADDR. OF REG 

464 001372 067114 OT1S sSERRPC,TEMP1 

465 001374 067563 DF15 30,0 

466 

467 

468 3*ITEM16 

469 001376 057451 E™M16 SWATT LOOP FAILED 

470 001400 063307 DH16 3PC 

471 SWAT PC 

47? sBIT WANTED 

473 3REG. ADR. 

474 sPREG. CONT. 

475 001402 067124 DT16 SSERRPC, STMP3,$TMP1,$TMPO, $BDDAT 
476 001404 067566 OF 16 30,0,0,0 

477 

478 

479 s*ITEM17 

480 001406 057472 €M17 SWRITE CHECK FAILTUC 

481 001410 063452 DH17 3PC 

482 sTest #0 

48? SCONTENTS OF RHBA 

464 sCONTENTS OF RHDB 

485 sCONTENTS OF REWC 

486 sCONTENTS OF RHCS1 

487 sCONTENTS OF RHCS2 

488 001412 067142 DT17 sSERRPC,STSTUMN,SBA,DB,WC,CS1,CS2 
489 001414 067573 OF17 30,0,0,0,0,0,0 

490 

491 

492 3*ITEM20 

493 001416 05751€ EmM2 SRECISTER FAILING 

494 001420 063635 DH20 prc 

496 3TSt WO 

496 sCORTENTS OF RHERI 

497 SCONTENTS OF RHER2 

498 SCONTENTS OF RHERS 

499 CONTENTS OF RHAS 

500 sCONTENTS OF RHDS1 

$01 001422 067162 DT20 SSERRPC,TSTRM ER1,ER2,ER3,AS,0S1 
eee 001424 067602 DF20 30,0,0,0,0,0,0 

504 s*[TEM21 

505 

506 001426 057537 E¥21 Zs INTERRUPT FAILING 

507 001430 064020 DH21 3PC 

508 sTEST WO 

509 sCONTENTS OF PHCS1 

510 sCONTENTS OF RHAS 

511 SCONTENTS OF RHDS1 

512 001432 067202 DT21 sSERRPC, TSTNM,CS1,AS,0S1 
aa 001434 067611 DOF 21 30,0,0,0,0 

§15 72 
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516 s*ITEM22 
517 001436 057561 sERROR IH ORIVE PRESENT - 
518 SLOOKIBG AT RAAS ABD See ee 
519 SORIVES PRESENT DO HOT AGREE 
520 sROTE? ON DUAL PORT SYSTEM 
$21 JORTVE O8 OTHER PORT WILL BOT GIVE HED 
$22 SRERCE THERE WILL BE A WISSHATCH 
523 001440 064140 DA22 3Pc 
524 sTEST #0 
$25 SRHAS UBIT (RHER1 BITS SET) 
526 SRHCS2 OMIT (°NED* BIT TEST) 
527 001442 067216 DT22 sSERRPC, TSTEM 
528 001444 067616 OF 22 30,0 
$29 
530 
531 3*(TEN23 
532 001446 000000 0 3"O LOBCER USED DUE TO SPECTAL “NED? 
533 001450 000000 0 sTEST TABLE TYPE OUT ROUTINE 
534 001452 000000 0 
535 001454 000000 0 
536 
537 
538 s*ITEM 24 
539 001456 060241 eEm24 SLOOK AHEAD REGISTER AT THE 
540 sBECINBING OF A SECTOR IS IW 
541 JERROR 
542 001460 064243 DH24 apc 
543 sRHOST 
544 3BAD RELA 
545 26000 RALA 
546 sSECTOR BO 
547 sSECTOR CLOCK 
548 001462 067224 DT24 dSERRPC, DST, SBDDAT, STMP1, STMP2, STHPS 
oe 001464 067622 DOF 24 30,0,0,0,0 
550 
551 s*ITEM 25 . 
552 001466 060334 Ew25 3LOOK AHEAD REGISTER IS 
$53 31m ERROR 
554 
555 001470 064243 DH24 3PCc 
556 3sRADST 
557 3BAD RHLA 
558 26000 RALA 
559 3SECTOR BO 
560 sSECTOR CLOCK 
561 001472 067224 DT24 dSERRPC, DST, S$BDDAT, STMP1,STHP2,$THPS 
562 001474 067622 DOF 24 30,0,0,0,0 
563 3* I TEM26 
aa 001476 057325 eM11 SCONTROLLER OR ORIVE STATUS 
5 
566 001500 064426 DH26 3PC 
567 3PC OF JSR 
568 SFAILING REGISTER ADDRESS 
569 sCONTENTS OF RHCS1 
570 sCONTENTS OF RHCS2 
571 sCONTENTS OF RHDS1 ry I 


~ 
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572 
573 
574 
575 
576 
577 
578 
579 
580 
$81 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
$92 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
62? 
623 
624 
625 
626 
627 


001502 
001504 


001506 
001510 


001512 
001514 


001516 
001520 


001522 
001524 


001526 


001530 


001532 
001534 


001536 
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067244 
067631 


057154 
064631 


067266 
067641 


060374 
064774 


067304 
067647 


060516 


065770 


067412 
067706 


060641 


D0T26 
DF 26 


3* IT TEN27 
ew 


O27 


OT27 
DF27 


3*ITEN30 
EM30 
0H30 


DT30 
DF 30 


>*ITEM31 


E31 


DH34 


DT34 


DF34 


3*ITEM32 
EM32 


~ 
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sCORTENTS OF RHERI 


sSERRPC,PCJUSR, $BDADR,CS1,CS2,0S1,ER1 
30,0,0,0,0,0, 


JERROR IN READING OR WRITING HARDWARE REGISTER 


3Pc 

aPC OF JSR 

sTEST SUMBER 
SPAILING REGISTER 
26000 DATA 
dRECEIVED DATA 


2 SERRPC,PCJSR, TSTUM, REGADR, $GDDAT,$BDDAT 
30,0,0,0,0,0 


a CYLINDER DOES WOT REFLECT DESIRED CYLIBDER REC. 
3 - 

3PC OF JSR 

SREGISTER ADDRESS 

9COOD DATA 

ZeaD DATA 


SSERRPC, PCJSR, REGADR, SCDDAT, $8DDAT 
30,0,0,0,0 


3FCC GEWERATED IS INCORRECT 
sEVERY WORD IW THIS SECTOR IS GIVEN IN “DATA USED® 


3PC 

sTEST HUMBER 
26000 ECC1 
36000 EC2c 
sURITTEW ECCI 
sURITTEN ECC2 
sDATA USED 


sSERRPC, TSTNM,GECCI,GECC2,WECC1,WECC2,DISK 
3070,0,0,0,0,0 


308 READ COMMAND AFTER DATA AND ECC HAVE BEEN READ 
gECC REGISTER OR RHERI IS IW ERROR 
sOMLY LOWER 11 BITS OF PATTERN REGISTER 


KL 


7 
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628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 


001540 


001542 
001544 


001546 
001550 


001552 


001554 


001556 


001560 


001562 
001564 


001566 


001570 
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066153 


067432 
067715 


061130 
066356 


067454 


067725 


061202 


067454 
067725 


061275 


066515 


3* IT TEN33 


3*ITEN34 


DT35 
OF35 


DT36 
DF 36 


EM34 


0T36 
DF36 


3*ITEN3S 
EN3 


DA37 





— — —— — — — 
— me 
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3CAW RE READ 
9THIS SHUOLD MATCH LOWER 11 BITS OF ECC1 


aPc 

STEST BUMBER 
26000 ECC1 

26000 ECC2 
SPATTERN RECISTER 
sRHERL 


3 SERRPC, TSTUN,GECC1,GCECC2,EC2,ER1 
30,0,0,0,0,0 


— — COUNT BIT NOT HIGH AFTER 388659 CLOCKS 
3 

9PC OF JSR 

sTEST BUNBER 

sRHMR 


sPOSITION REC. 
SPATTERR REGISTER 


SSERRPC, PCJSR, TSTUN,MR,EC1,EC2 - 
30,0,0,0,0, 0 


dZERO DETECT BIT BOT HICH WHEN THE 
932 BIT ECC REGISTER HAS ITS 213 BITS 
30F ZEROS 

SERROR PRINTOUT WILL COBTINUE TILL 
oe DETECT BIT IS HIGH 

3 

3PC OF JSR 

sTEST NUMBER 

pRamR 

sPOSITION REG. 

SPATTERN REGISTER 


sSERRPC,PCISR, TSTNM,MR,EC1,EC2 
30,0,0,0,0,0 


SPOSITION REGISTER OR 11 BITS OF 

SPATTERW REGISTER INCORRECT 

SLOWER 11 BITS OF PATTERN REGISTER 

dSHOULD MATCH LOWER 11 BITS OF GOOD ECC1 

SDATA ENVELOPE AND W-CODE ZEROS ARE IW DECIMAL 


3PC 


(2 
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684 
685 
686 
687 
668 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
7104 
705 
106 
107 
108 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
124 
725 
126 
727 
728 
729 
730 
731 
132 
733 


EE —— — 


001572 
001574 


001576 
001600 


001602 
001604 


001606 
001610 


001612 
001614 


001616 
001620 


001622 
001624 
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067472 
067733 


061574 
066153 


067432 
067715 


061705 
062676 


067052 
067544 


062042 
066733 


067516 
067744 


0T37 
OF 37 


e* IT TEN36 


DT35 
OF35 
3* 1 TEN37 


EM37 
DALI 


DTi1 
DFil 


3*ITEM40 
EM40 


DR40 


DT40 
or40 


MACY11 30(1046 
ERROR POINTER TABLE 


— — — — —— — — 
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TEST BOMBER 
3£CC POSITION 
3COOD POSITION 
3¢00D ECC1 
3GO0D ECC? 
2ECC PATTERN 
DATA EWVELOPE 
9R-CODE ZEROS 


SSERRPC, TST HN, EC], POSITI,GECC1, GECC2, £C2,DATERV, ZCODE 
307040,0,0,0,0,0,0 


308 A READ COMMAND WITH BOW CORRECTABLE 
—* INSERTED DCE ABD ECH SHOULD BE SET 
gPe 

sTEST BUNBER 

26000 ECC1 

9G000 ECC2 

SPATTERN RECISTER 

SPOSITION REGISTER 

dRBERL 


sSERRPC, TSTHM,GECC1,GECC2,8C2,6C1,ER1 
30,07,0,0,0,0,0 


3PGE ERROR 

3Pc 

sTEST uO 

SPAILING REC. ADDR 

sCONTENTS OF RHCS1 

sCONTENTS OF RHCS2 

SCONTENTS OF RHDS1 

sCONTENTS OF RHER1I 

dSERRPC, $TSTUM, SBDADR,CS1,CS2,0S1,ER1 
30,0,0,0,0,0 


SRHWC DID NOT = O APTER A READ OR 
SWVRITE HEADER AND DATA 

3Pc 

sTtest uo 

SCONTENTS OF RHWC 
SSERRPC,TSTHM,SBDDAT 

30,0,0 


mL 








( 
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DZRJGA.P11 29="AR=76 00:00 ERROR POINTER TABLE ( 
134 
736 FF AAAAAAASAAAAAARAHEAAAAARAAARARAAARAARAORAARARARAAAARERARERAARAEE ( 
736 3*RH11/RH70 REGISTERS 
137 33 RRATAHRKAASKARARSERARARAARARARAARARAERARARARKRARAARAKRAARARARARARARARARARARA 
738 ( 
739 
740 
741 3*WORD COUNT REGISTER (PRHWC) ( 
742 3*EACH RIT TS CALLED RY BIT NUMRER 
743 
144 ( 
145 
146 z*qus ADDRESS RFGISTER (RHBA) 
747 3*EACH BIT IS CALLED BY BIT NUMBER ( 
748 
749 , 
759 ( 
751 3*CONTROL AND STATUS PEGISTER 2 (RHCS2) 
752 
752 000001 usi⸗ 1 sUNIT SELECT (BIT #0) ( 
7154 000002 US2= 2 3UNIT SELECT (BIT #1) 
755 000004 usa⸗ 4 3UNIT SELECT (BIT $2) 
156 000010 BAL= 10 3RUS ADDRESS INCREMENT INHIBIT (BIT #3) ( 
757 000020 PAT= 20 INVERT PARITY ON MASS RUS TO EVEN (BIT #4) 
758 000040 CLa= 40 sCLEAR (BIT #5) 
759 000100 IR= 100 INPUT READY (BIT #6) ( 
760 000200 OR= 200 OUTPUT READY (RIT #7) 
761 000400 MPE= 400 3MASS BUS PARITY ERROR (BIT @8) 
162 001000 MXF= 1000 3MISSED TRANSFER ERROR (BIT $9) ( 
763 002000 PCE= 2000 sPROGRAM ERROR (BIT #10) 
164 004000 NEM= 4000 3NOW EXISTANT MEMORY (BIT #11) 
165 010000 NED= 10000 3NON EXTSTANT DRIVE (RIT #12) ( 
1606 020000 UPE= 20000 3UNTBUS PARITY ERROR (BIT $13) 
167 040000 WCE= 40000 sWRITE CHECK ERROR (BIT #14) 
768 100000 DLT= 100000 sDATA LATE (BIT #15) ( 
769 
770 3*DATA BUFFER REGISTER (RHDR) 
771 3*EACH BIT IS CALLED BY BIT NUMBEP ( 
77? 
772 
774 ( 
175 33 RRASRAARARAARAARARARAEARAARARARERAARARAERARARARAERARRAAARRAARARAAKRARTE BARA RAReSe 
776 3*RPO4 REGISTERS 
177 PPTAHAAAAAARAKHHRARAAAAAHORAAAARAHEHAHARHAAHAAHAAAARAHARAeAAAAAeene ( 
778 
779 
780 ( 
781 s*CONTROL AND STATUS 1 REGISTER. (#00) 
782 . 
793 000001 co⸗ 1 360 (RIT #0) ( 
784 000100 IE= 100 sINTERRUPT ENABLE (RIT 86) 
786 000200 RDY= 200 #PEADY (BIT #7) 
736 000400 AlL6= 400 2HIGH ORDER UNIBUS SITS (BIT #3) ( 
787 001000 Al7= 1000 HIGH ORDER UNIBUS RITS (PIT #9) 
788 002000 PSEL= 2000 PORT SELECT (BIT #10) 


789 004000 DVA= 4000 sDEVICE AVAILABLE (PIT #11) A3 ( 
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790 020000 MCPE= 20000 SMASSBUSS PARITY ERROR (BIT #13) 
791 040000 TRE= 40000 STRANSPER ERROR (RIT #14) 
792 100000 sc= 100000 sSPECIAL CONDITION (BIT $15) 
7193 
7194 S*STATUS REGISTER (RHDS1) (#01) 
795 
7196 000001 oFrs= i sORIVE FORWARD S"/SEC. (BIT #0) 
797 000002 DFF20= 2 JDRIVE FORWARD 20°/SEC. (BIT #1) 
798 000004 OrcB= 4 SORIVE TO [WHER GAVRD BAND (BIT §2) 
7199 000010 GRV= 10 260 REVERSE (8IT #3) 
800 000020 OL64= 20 SDIFFERERCE LESS THAN 64 (BIT #4) 
801 000040 DE1= 40 SDIFFERENCE EQUALS 1 (BIT @5) 
802 000100 vv e 100 SVOLUME VALID (BIT 86) 
803 000200 ORY= 200 sDRIVE READY (BIT #7) 
804 000400 DPR= 400 SDRIVE PRESENT (BIT 98) 
805 001000 PROG= 1000 SPROGRAMABLE (BIT #9) 
806 002000 Lst= 2000 sLAST SECTOR TRANSFERRED (BIT #10) 
807 004000 URL= 4000 sWRITE LOCK (BIT #11) 
808 010000 MOL= 10000 SMEDIUM ON-LINE (BIT #12) 
809 020000 PIP= 20000 sPOSITIONING OPERATION IN PROGRESS (BIT $13) 
910 040000 ERR= 40000 sCOMPOSIT ERROR. (BIT $14) 
at 100000 ATA= 100000 SATTEWTION ACTIVE (BIT #15) 
813 J*ERROR REGISTER #01 (RHER1) (#02) 
R14 000001 ILf= 1 PILLEGAI FUNCTION (BIT #0) 
815 000002 ILR= 2 STLLEGAL REGISTER (BIT #1) 
816 000004 R¥R= 4 SRECISTER MODIFICATION REFUSED (BIT 82) 
817 000010 PAR= 10 SPARITY ERROR (BIT #3) 
818 000020 FER= 20 sPORMAT ERROR (BIT 64) 
819 000040 wcr= 40 SURITE CLOCK PAIL (BIT #5) 
820 000100 ECH= 100 gECC HARD ERROR (BIT #6) 
821 000200 HCE= 200 SHEADER COMPARE ERROR (BIT #7) 
822 000400 acrc= 400 SHEADER CRC ERROR (BIT #8) 
823 001000 AQE= 1000 SADORESS OVERFLOW ERROR (BIT #9) 
824 002000 [AE= 2000 sTNVALID ADDRESS ERROR (BIT 810) 
825 004000 WLE= 4000 SWRITE LOCK ERROR (BIT #11) 
826 010000 OTE= 10000 SDRTVE TIMING ERROR (BIT $12) 
827 020000 OPI= 20000 SOPERATION INCOMPLETE (PIT #13) 
828 040000 UNS= 40000 sDRIVE UNSAFE (BIT #14) 
—* 100000 DCK= 100000 SDATA CHECK ERROR (BIT 15) 
0 . 
831 S*MAINTAINABILITY REGISTER (RHMR)( 803) 
832 
833 000001 OMD= 1 SDIAGINOSTIC MODE (BIT #0) 
834 000002 MCLK= 2 SMATUTATMABILITY CLOCK (BIT #1) 
835 000004 MINX= 4 SMATUTAINABILITY INDEX (BIT #2) 
836 000010 MSTCK= 10 SMAINTAINABILITY SECTOR CLOCK (BIT #3) 
837 000020 MRD= 20 SMATNTATMABILITY READ (BIT #4) 
838 000040 MWR= 40 SMAINTATMABILITY WRITE (BIT #5) 
839 000200 DENVYL= 200 sDATA ENVELOPE (BIT $7) 
840 000400 ZER= 400 SZERO DETECT (BIT #6) 
3 001000 DTSY= 1000 sMAINTAINABILITY SYNC DETECTED (BIT #9) 
+ S*ATTENTION SUMMARY PSEUDO-RECISTER (RHAS) (804) 
a4 
845 000001 ATO= 1 sDEVICE o (8IT #0) 


— 
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846 
847 
848 
849 
950 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
"61 
86? 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
689 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 


29-MAR-76 00300 


000002 
000004 
000010 
000020 
000040 
000100 
000200 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
© 20000 
040000 
100000 


000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 


AT1l= 
AT2= 
AT3= 
AT4= 
ATS= 
AT6= 
AT7< 
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sDEVICE 1 (BIT #1) 
SDEVICE 2 (BIT #2) 


sDEVICE 3 (BRIT #3) 
sDEVICE 4 (BIT #4) 
sDEVICE S (RIT #5) 
sDEVICE 6 (BIT 86) 
sDEVICE 7 (BIT #7) 


S*DESIRED SECTOR/TRACK ADDRESS RECISTER (RHDST) (#1) 
s*EACH BIT IS CALLED BY BIT NUMBER 


S*DRIVE TYPE RECISTER (RHDT) (#06) 
s*EACH BIT TS CALLED BY BIT NUMBER 


3*LOOK-AHEAD REGISTER (RHLA) (807) 


ExTi= 
EXxt2= 
ExT4= 
ExT10= 
EXT20= 
ExT40= 
scis 
Sc2= 
sc4= 
SC10= 
$C 20= 
TRK1I= 
TRK2= 
TRK4= 
TRK1O= 
TRK20= 


3*RPO4 
“wcuU= 


-CSr= 


wSsU= 
csu⸗ 
MSE= 
TOF= 
TUrF= 
FEN= 
WRU= 


1 
2 
4 


100000 


sEXTENSTON 1 (BIT #0) 
SEXTEWSTON 2 (BIT $1) 
sEXTENSION 3 (BIT 82) 
SEXTERSION 4 (BIT $3) 
sEXTEWSTON S (BIT #4) 
sEXTENSTON 6 (BIT 85) 

SSECTOR COUNT FIELD 0 (8IT #6) 
sSECTOR COUNT FIELD 1 (BIT #7) 
sSECTOR COUNT FIELD 2 (BIT #6) 
sSECTOR COUNT FIELD 3 (BIT #9) 
SSECTOR COUNT FIELD 4 (BIT #10) 
STRACK FIELD 1 (BIT 811) 
STRACK FIELD 2 (BIT #12) 
STRACK FIELD 3 (BIT $13) 
STRACK PIELD 4 (BIT 814) 
STRACK PIELD S (BIT 915) 


ERROR REGISTER #2 (RHER2) (#10) 





sWRITE CURRENT UNSAFE (BIT 80) 
SCURRENT SINK FAILURE (BIT #1) 

SWRITE SELECT UNSAFE (BIT #2) 

sCURRENT SWITCH UNSAFE (BIT #3) 

SMOTOR SEQUENCE ERROR (BIT $4) 
STRANSITIONS DETECTOR FAILURE (BIT #5) 
SsTRAWSITIONS UNSAFE (BIT 86) 
2FAILSAFE EWABLED (SIT #7) 

SWRITE READY UNSAFE (RIT 88) 


c3 





€ ( 
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902 001000 MHS= 1000 sMULTIPLE HEAD SELECT (BIT @9) 
903 002000 WHS= 2000 3™O HEAD SELECTION (BIT 910) ( 
904 004000 IXE= 4000 2INDEX ERROR (BIT #11) 
905 010000 VU30= 10000 d30VOLT UNSAFE (BIT $12) 
906 020000 PLU= 20000 3PLO UNSAFE (BIT #13) ( 
—— 100000 acu⸗ 100000 SACUNSAPE (BIT #15) 
9 
909 3*RPOS/6 ERROR REGISTER #2 (RHER2) (810) ( 
910 
911 000001 wcu= 1 7VRITE CURERT UNSAFE 
912 000002 csr= 2 SCURRENT SIWK FAILURE ( 
913 000004 wsU= 4 sCURENT SELECT UNSAFE 
914 000010 csU= 10 SCURRENT SWITCH UNSAFE 
915 000020 Raws 20 #READ AWD WRITE ( 
916 000040 TOF= 40 STRANSITIONS DETECTOR FAILURE 
917 000100 TUF= 100 STRANSITIONS UNSAFE 
918 000200 A8s= 200 PABWORMAL STOP ( 
919 000400 wRU= 400 #WRITE READY UNSAFE 
920 001000 MHS= 1000 SMULTIPLE HEAD SELECT 
921 002000 aAS= 2000 3NO HEAD SELECTION ( 
92? 004000 IXE= 4000 3THDEX ERROR 
—* 020000 PLU= 20000 3PLO UNSAFE ’ 
92s S*OFFSET REGISTER (RHOF) (#11) 
26 
927 000001 or25= 1 3OFFSET 25 MICRO INCHES (BIT 80) ( 
928 000002 orso= 2 sOFFSET SO MICRO INCHES (BIT $1) 
929 000004 OFl00= 4 ZOFFSET 100 MICRO IWCHES (BIT $2) 
930 000010 OF200= 10 ,OFFSET 200 MICRO INCHES (BIT 83) ( 
931 000020 or400= 20 SOFFSET 400 MICRO INCHES (BIT 64) 
ae 000040 OF800= 40 ZOPFSET G00 MICRO INCHES (BIT 85) 
934 000200 OFREV= 200 OFFSET WEGATIVE (REVERSE) (BIT 87) 
935 002000 HCI= 2000 SHEADER COMPARE IWHIBIT (BIT #10) 
936 004000 ECI= 4000 pERROR CORRECTION CODE INHIBIT (BIT 611) ( 
oe 010000 FMT22= 10000 SPORMAT BIT (BIT #12 
3 
939 ( 
940 
. 941 
942 ( 
943 
944 S*DESIRED CYLINDER ADDRESS (RHCA) (#12) 
945 3*EACH BIT TS CALLED BY BIT NUMBE®. ( 
946 
947 
948 ( 
949 
950 
951 S*CURRENT CYLINDER ADDRESS (RHCC) (#13) ( 
952 "EACH BIT IS CALLED ®Y BIT NUMBER 
953 
954 ( 
955 
956 
957 
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958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
9863 
984 
985 
986 
987 
989 
989 
990 
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000001 
000002 
000010 
000020 
000040 
000100 
040000 
100000 


watt — 
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ERROR POINTER TABLE 


s*SERIAL HUMBER RECISTER (RHSH) (814) 
d*EACH TS CALLED BY BIT NUMBER 


S*ERROR REGISTER #03 (RHER3) (815) 


PsU= 
vor= 
OUR= 
PRE= 
ACL= 
OCL= 
SKI= 
OCcYL= 


A 


40000 
100000 


sPACK SPEED UNSAFE (BIT $0) 

sVELOCITY UNSAFE (BIT $1) 

dANY UNSAPE EXCEPT READ/URITE (BIT #3) 
sDISK PACK ROTATION ERROR (BIT #4) 

jaC LOW (BIT 85) 

30C LOW (BIT 86) 

dSEEK INCOMPLETE (BIT #14) 

s0FF CYLIWOER (BIT #15) 


d*ECC POSITION RECISTER (RHEC1) (#16) 
s*EACH BIT IS CALLED BY BIT NUMBER 


s*ECC PATTERN REGISTER (RHEC2) (617) 
s*EACH BIT TS CALLED BY BIT NUMBER 


<3 
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991 

992 

993 

994 

995 

996 

997 

998 

a99 
1000 
1001 
1002 
1003 
1004 
100* 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 


001626 


001630 
001632 
001634 
001636 


001640 
001642 
001644 
001646 
001650 
001652 
001654 
001656 
001660 
001662 
001664 
001666 
001670 
001672 
001674 
001676 


001700 
001702 


29-MAR-76 00:00 


000254 


176722 
176702 
176704 
176710 


176700 
176714 
176706 
176740 
176732 
176734 
176742 
176716 
176724 
176712 
1767 26 
176730 
176744 
176746 
176720 
176736 


176750 
176752 
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ERROR POINTER TABLE 


eSBTTL REGISTER ADDRESSES 


3*RPO4 VECTOR ADDRESS 


RPVEC: 


254 


3RPO4 VECTOR ADDRESS 


3*RPO4/S/6 DISK 1/0 REGISTERS LOCATED IW THE RH11 CONTROLLER 
s*MOTE: THE CONTENTS OF THESE LOCATIONS WILL BE DIFFREET 

IF THE “CHANGE PASE ADDRESS® ROUTINE IS USED. 

THIS ROUTINE STARTS AT LOCATION TAGED “BASECH® 


3? 


176722 
176702 
176704 
176710 


sDATA BUFFER SEE NOTE ABOVE 

SWORD COUNT SEE BOTE ABOVE 

3RUS ADDRESS SEE NOTE ABOVE 

sCONTROL AND STATUS 2 SEE NOTE ABOVE 


3*RPO4/S/6 DISK 1/0 REGISTERS LOCATED IN THE DEVICE CONTROL LOGIC (DCL) 
s*NOTE: THE CONTENTS OF THESE LOCATIONS WILL BE DIFFERENT 

IF THE “CHANGE BASE ADDRESS ROUTINE IS USED. 

THIS ROUTINE STARTS AT LOCATION TAGED “BASECH® 


3* 
3* 


RHCS13 
RHERI: 
RHDST? 
RHER2: 
RHOF : 
RHCAS 
RHER3: 
RHAS?: 
RHR: 
RHDS1: 
RHOTs 
RHSNs 
RHEC1?: 
RREC 22 
RHLA: 
RHCC: 


176700 
176714 
176706 
176740 
176732 
176734 
17674? 
176716 
176724 
176712 
176726 
176730 
176744 
176746 
176720 
176736 


SCOWTROL AND STATUS 1 SEE MOTE ABOVE 
sERROR 81 SEE NOTE ABOVE 

SDESIRED SECTOR/TRACK ADDRESS SEE NOTE ABOVE 
JERROR #2 SEE BOTE ABOVE 

sOFPFSET SEE MOTE ABOVE 

SDESIRED CYLINDER ADDRESS SEE NOTE ABOVE 
sERROR #3 SEE NOTE ABOVE 

SATTENTION SUMMARY SEE NOTE AROVE 
SMATUTAINABILITY SEE NOTE ABOVE 

sDRIVE STATUS SEE NOTE ABOVE 

JDRTIVE TYPE SEE MOTE ABOVE 

SSERIAL MUMBER SEE NOTE ABOVE 

sECC POSITION SEE NOTE ABOVE 

sECC PATTERW SEE BKOTE ABOVE 

sLOOK-AHEAD SEE NOTE ABOVE 

SCURRENT CYLINDER ADDRESS SEE NOTE ABOVE 


s*ADDITIONAL REGISTERS LOCATED IN THE RH70 CONTROLLER LOGIC 


RHBAES 
RHCS33 


176750 
17675? 


3BUS ADDRESS EXTENSION RECISTER 
SCONTROL ARD STATUS REGISTER @3 
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O7ZRIGA.P11 29-MAR-76 00:00 REGISTER ADDRESSES 
1042 
1043 
1044 d*THE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SAVES 
1045 s*ANY TIME THERE IS AW ERROR ALL THESE WILL BE FILLED 
1046 s*ONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE 
1047 3*FOR THE TIME JUST AFTER THE “ERROR” ERROR COMMAND 
1048 
1049 001704 000000 DB: 0 s0ATA BUFFER 
1050 001706 000000 wc: 0 s¥VORD COUNT 
1051 001710 000000 BAS 0 3BUS ADDRESS 
1052 001712 000000 CS2: 0 sCONTROL AND STATUS 2 
1053 
1054 
1055 001714 000000 CSi: 0 sCONTROL AND STATUS 1 
1056 001716 000000 ER1: 0 sERROR #1 
1057 001720 000000 OsT: 0 SDESIRED SECTOR/TRACK ADORESS 
1058 001722 000000 ER2: 0 sERROP 82 
1059 001724 000000 OF: 0 OFFSET 
1060 001726 000000 CAs 0 sDESIRED CYLINDER ADDRESS 
1061 001730 000000 ER3: 0 sERROR #3 
1062 001732 000000 AS: 0 SATTENTION SUMMARY 
1063 001734 000000 MR; u sMAINTAINABILITY 
1064 001736 000000 OS1: 0 s0RTVE STATUS 
1065 001740 000000 OTs 0 sORTVE TYPE 
1066 001742 000000 SW3 0 sSERIAL NUMBER 
1067 001744 000000 ECL: G sECC POSITION 
1063 001746 000000 EC2: 0 sECC PATTERN 
1069 001750 000000 LAs 0 sLOOK-AHEAD 
1070 001752 000000 ccs 0 SCURR°NT CYLINDER ADDRESS 
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DZRJGA.P11 29-MAR-76 00:00 REGISTER ADDRESSES 
1071 
1072 s*FLAGS & INTERNAL PROCRAM CONTROL WORDS 
1073 
1074 001754 000010 UNITS: .BLEFW 6. STABLE OF DRIVES PRESENT TO TEST 
1075 001774 000000 UNITS -worRPD 0 sUNTT UNDER TEST 
1076 001776 000000 WOUNIT: .WORD 0 sNUMBER OF UNITS PRESENT 
1077 sUSED TO KEEP TRACK OF OMIT UNDER TEST 
1078 002000 000000 NUNIT: .WORD 0 sUSED TO DETERMINE IF THERE IS MORE 
1079 STHAN OWE UNIT 
1080 002002 000000 SELECT: .WORD 0 ZALL OWES INDICATE UNIT TO BE SELECTED 
1081 002004 000000 UNITSL: .WORD 0 sUNIT HO. SELECTED 
1082 
ott 002006 000000 ERFLGS: 0 JERROR FLAG 
1 
1085 002010 000000 savot: 0 sSAVE DPIVE TYPE REGISTER 
1086 SFOR COMPARTSON IW DRIVE CLEAR TEST 
1087 dAND RH INIT TEST 
108f 002012 000000 SAVSN: 0 3SAVE SERTAL WUMBER REGISTER 
1089 3FOR COMPARTSON IW DRIVE CLEAR TEST 
1090 3AND PH INIT TEST 
1091 
pte 002014 000000 PcJsrR: 0 sSAVE PC OF JSR WHICH GAVE THE ERROR 
109 
1094 002016 000000 ATTENT: 0 - PATTENTION BIT FOR PRESENT UNIT 
te 002020 000000 TOTALAT: 0 sTATAL ATTENTION PITS 
1097 002022 000000 TMPILL: 0 sTEMPORARY ILLEGAL FUNCTION 
1098 
1099 002024 000000 TSECC: 0 sPLAG TO SAY If ECC TEST OR HOT 
1100 sWHEN =177777 IT IS AW ECC TEST 
4r8) dWHEN =OIT IS NOT AN ECC TEST 
110 
1103 002026 000000 TESDTE: 0 2FLAG TO SAY IF DRIVE TIMING ERROR OR NOT 
1104 sWHEN = 177777 IT IS A OTE TEST 
1105 sWHEN = 0 TT IS BOT A OTE TEST 
1106 
1107 002030 000000 TASOTE: 0 STEMPORARY TAG USED IN DRIVE TIMING 
1108 JERROR TEST 
1109 
1110 002032 000000 TStTum: 0 sTEST NUMBER 
1111 
1112 002034 000000 FIRST: 0 3sTF ZERO WILL TYPE HEADER 
1113 
1114 002036 000000 RPO6: 0 3TF 0 PROGRAM WILL TREAT ORIVE AS aPO4 
1115 
1116 002040 000000 RH703; 0 3TF 1 PROGRAM IS PUNNING ON RATO 


1117 s1f 0 PROGRAM IS Cw AW RH1L 
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OZRJGA.P11 29-MAR-76 00:00 REGISTER ADDRESSES 
1118 
1119 
1120 s*FUNCTION EQUATES 
1121 
1122 S*TABLE OF FUNCTIONS FOR RHCS1, THEW "GO" BIT HAS TO BE SET 
1123 
1124 002042 FUTABL: 
1125 002042 000000 WOPERA: 0 3NO OPERATION 
1126 002044 000002 UNLOAD: 2 JSUNLOAD (STAND BY) 
1127 002046 000006 RECALI: 6 SRECALIBRATE 
1128 002050 000010 DCLEAR: 10 sORTVE CLEAR 
1129 002052 000012 RELEAS: 12 SRELEASE (DUAL-PORT OPERATION) 
1130 002054 000030 SERCH: 30 dSEARCH COMMAND 
1131 002056 000050 WRCHEKs 50 SWRITE CHECK DATA 
1132 002060 000052 WRCHDOT: 52 SURITE CHECK MEADER AND DATA 
1133 002062 000060 WRIDAT: 60 sURTTE DATA 
1134 002064 000062 WRIFOR: 62 SURITE HEADER AND DATA (FORMAT) 
1135 002066 000070 READAT: 70 sREAD DATA 
1136 002070 000072 REFOR: 72 SPEAD HEADER ABD DATA 
1137 002072 000004 SEECOM: 4 sSEEK COMMAND 
1138 002074 000014 OFSETC: 14 SOFFSET COMMAND 
1139 002076 000016 RETCL: 16 SRETURETO CERTERLINE 
1140 002100 000022 PFACK: 22 sPACK ACKNOWLEDGE 
1141 002102 000020 READIN: 20 sREAD IW 
tH 002104 000000 ILLEGL: .WORD SCOMPUTED ILLEGAL FUNCTION 
114: 
1144 
1145 s*DATA BUPFERS FOR READ WRITE 
1146 
1147 
1148 002110 000422 WRFROM: .BLFW 274. SWVRITE PROM THIS BUFFER 
1149 003154 000422 REINTO: .RLKW 274. SREAD ITO THIS BUFFER 
1150 
1151 
1152 
1153 s*TABLE FOR ATTENTION BITS 
* d*ATTENTION TABLE 
1 
1156 004220 001 002 004 ATABLE: .BYTE 1,2,4,10,20,40,100,200 
1157 004223 010 020 040 
115" 004226 100 200 
1159 


Ts 





— — 


— — — 





Ie mm mm om mw ww mw mw mw ww ww mm 
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OZRIGA.P11 29-MAR-76 00:00 REGISTER ADDRESSES 
1160 
1161 e SBTTL ( 
1162 eSBTTL ***DTAGNOSTIC CODE*** 
1163 oSBTTL 
1164 ( 
1165 eSBTTL SETUP TESTS 
1166 
1167 004230 012737 177777 002002 ®BECIN2: MOV @-1,@@SELECT SELECT UNIT 
1168 004236 000402 BR START 
1169 004240 005037 002002 BEGIN: CLR @*SELECT 300 WOT SELECT UNIT 
1170 PRORMAL RUM 
1171 
1172 004244 START: 
1173 004244 000005 RESET 
1174 eSBTTL INITIALIZE THE COMMON TAGS 
1175 33CLEAR THE COMWON TAGS (SCNTAG) AREA 
1176 004246 012706 001100 nov @SCHTAG, RE 33FTRST LOCATION TO BE CLEARED ( 
1177 004252 005026 CLR (R6)e 3CLEAR MEMORY LOCATION 
1178 004254 022706 001140 cup @SUR,R6 33D0NE? 
1179 004260 001374 BNE 6 33LOOP BACK IF HO ( 
1180 004262 012706 001000 MoV @STACK, SP 99SETUP THE STACK POINTER 
1181 33INITIALIZE A FEW VECTORS 
1182 004266 012737 053714 000020 mov @SSCOPE,@SIOTVEC 3;T0T VECTOR FOR SCOPE ROUTINE ( 
1183 004274 012737 000340 000022 mov 6340, @8TOTVEC*2 s3LEVEL 7 
1184 004302 012737 056132 000030 mov OSERROR, QSEMTVEC 3;ENT VECTOR FOR ERROR ROUTIBE 
1185 004310 012737 000340 000032 nov 8340, ,Q8ENTVECe2 s3LEVEL 7 
1186 004316 012737 056702 000034 nov STRAP, @HTRAPVEC 33TRAP VECTOR FOR TRAP CALLS 
1187 004324 012737 000340 000036 mov €340, @BTRAPVEC*2;LEVEL 7 
1188 004332 012737 056772 000024 mov SSPURDN, Q@PPWRVEC 3;POWER FAILURE VECTOR ( 
1189 004340 012737 000340 000026 mov #340, @8PURVECe2 s3LEVEL 7 
1190 004346 005037 001212 CLR $TIMES PPIWITIALIZE RUMBSER OF ITERATIONS 
1191 004352 005037 001214 CLR SESCAPE 23CLEAR THE ESCAPE OW FO" OR ADDRESS ( 
1192 004356 112737 000001 001115 wove #1,$ERMAX 33ALLOW OWE ERROR PER TEST 
1193 004364 012737 004364 001106 MoV #-,SLPADR dP IMITIALIZE THE LOOP ADDRESS FOR scoPE 
1194 004372 012737 004372 001110 MOV 8-,S$LPERR 39SETUP TRE ERROR LOOP ADDRESS ( 
1195 39STZE FOR A HARDWARE SWITCH REGISTER. If HOT FOUND OR IT IS 
1196 7EQUAL TO A "-1", SETUP FOR A SOPTWARE SWITCH REGISTER. 
1197 004400 013746 000004 uov @FERRVEC,-(SP) 33SAVE ERROR VECTOR ( 
1198 004404 012737 004440 000004 mov #64$,Q8ERRVEC  33SET UP ERROR VECTOR 
1199 004412 012737 177570 001140 mov #DSWR, SUR 33SETUP FOR A HARDWARE SWICH REGISTER 
1200 004420 012737 177570 001142 MOV @DDISP,DISPLAY 33AND A HAROWARE DISPLAY REGISTER ( 
1201 004426 022777 177777 174504 cup ĩ⸗· i asvun d3TRY TO REFERENCE HARDWARE SuR 
1202 004434 001012 BNE 665 23BRARCH IF HO TIMEOUT TRAP OCCURRED 
1203 33AND THE HAROWARE SWR IS NOT = -] ( 
1204 004436 000403 BR 65$ 23BRANCH TF WO TIMEOUT 
1205 004440 012716 004446 64$: mov #65$, (SP) 33SET UP FOR TRAP RETURN 
1206 004444 000002 RTI 4 
1207 004446 012737 000176 001140 65$: MOV @SWREG, SUR Z3POINT TO SOFTWARE SUR 
1208 004454 012737 000174 001142 MOV #DISPREG, DISPLAY 
1209 004462 012637 000004 66$: MOV (SP)¢,@#ERRVEC 3;RESTORE ERROR VECTOR ( 
1210 | 
1211 | 
1212 ‘ 
1213 | 
1214 004466 012737 000000 177776 STARTA: MOV #0,PS dSET PROCESSOR STATUS TO 0 


1215 004474 012777 053632 175124 MOV #RPVECT, @RPVEC sTHIS IS FOR UNTIMELY DRIVE [WTERRUPTS 33 








~ 


MNDEC-11-DZRJG-A,RP04/5/6 DSKLS CONTROLLER TST-PT 1 


OZRIGA.P11 


1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 





004502 
004506 
004512 
004514 


004516 
004522 
004522 
004526 


004620 


004620 
004624 


004664 


004664 
004670 


004760 
004760 
004764 


005044 
005044 
005050 


005132 
005132 
005136 


005172 
005172 
005176 


005260 
005260 
005264 


005326 
005326 


005334 
005340 
005342 
005350 
005352 
005354 
005356 
005364 


005364 
005372 


29-MAR-76 00300 


004737 
005737 
001001 
000402 


000137 


104401 
000434 


104401 
000417 


104401 
000433 


104401 
000427 


104401 
000430 


104401 
000415 


104401 
000430 


104401 
000420 


012737 


005737 
001006 
023727 
001005 
104406 
000403 
112737 


032777 
001403 


054672 
002034 


005326 
004530 


004626 


004672 


004766 


005052 


005140 


005200 


005266 


177777 


000042 
001140 


010000 


002034 


000176 


001134 


173546 


INITIALIZE THE 


1$3 
2$3 


3365$: 
64$: 


3367S: 
66$: 


3369$8 
68$: 


3371$3 
7052 


227352 
728: 


22755:2 
7483 


3377$3 
76$3 


3379$3 
78$3 
SND1: 
eS8TTL 


6452 
6552 


RHTOCKs 


MACY11 a 06-DEC-77 13357 PACE 26 


COMMON TAG 
JSR sé PC, RES TRINT pIMITIALIZE THE TTY KEYBOARD 
Tst @#FIRST 31S THIS FIRST TIME ROUND ? 
BNE 1$ 3SKIP HEADER IF MOT 
BR 2s 300 HEADER If SO 
JMP @#SND1 SSKIP OVERALL PROGRAM HEADER 
TYPE 65S 39TYPE ASCIZ. STRING 
BR 64$ 33GET OVER THE ASCIZ 
<ASCIZ €15>€12>7RP04/5/6 DISKLESS CORTROLLER TEST - PART I - DzRIC-A7 
TYPE = ,67$ s9TYPE ASCIZ STRING 
BR 66$ 33GET OVER THE ASCIZ 
eASCIZ <€15>¢€12>/REVISION DATE: 21-MAR-76/<¢15><¢12> 
TYPE 269$ d3TYPE ASCIZ STRING 
BR 68$ 33GET OVER THE ASCIZ 
SASCIZ ¢15>€129/ALL DCL“S UNDER TEST MUST BE LOCKED ON CORRECT PORT/ 
TYPE 271s asTYPE ASCIZ STRING 
BR 705 33GET OVER THE ASCIZ 
eASCIZ ¢15>¢€12>/IF CHANGES ARE REQUIRED ON PORT SWITCH TREN/ 
TYPE =, 73 POTYPE ASCIZ STRING 
BR 72$ 33GET OVER THE ASCIZ 
eASCIZ <15>€12>/A CYCLE UP SEQUENCE IS REQUIRED FOR STROBING/ 
TYPE ©, 75$ dOTYPE ASCIZ STRING 
BR 745 39GET OVER THE ASCIZ 
eASCIZ €15>€12>/THE PORT SELECT FLOP/<15><12> 
TYPE =, 77 pOTYPE ASCIZ STRING 
BR 16$ 33GET OVER THE ASCIZ 
eASCIZ €15>€12>/ALL DCL°S NOT UNDER TEST MUST BE SWITCHED OFF/ 
TYPE 2719S aSTYPE ASCIZ STRING 
BR 78$ 33GET OVER THE ASCIZ 
eASCIZ €15>¢€12>/0R LOCKED OW TRE OTHER PORT/<15><12> 
MOV #-1,Q9FIRST pNEXT TINE DO NOT GIVE READER 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
Ttst e#42 SARE WE RUNNING UNDER XXDP/ACT? 
BWE 64$ 33BRANCH If YES 
CMP SUR, ASREGC S3SOFPTWARE SWITCH REG SELECTED? 
BNE 65$ S3BRANCH ITF HO 
CTSWR 33GET SOPT-SWR SETTINGS 
BP 65$ ' 
MOVB #1,S$AUTOB 33SET AUTO-MODE INDICATOR 
BIT #S¥12,eSuR sLOOK TO SEE If USING RH7O 
BEQ 3$ 


SIF SW1? = 0, SKIP NEXT K3 
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1272 
1273 
1274 
1275 
1276 
1277 
12778 
1279 
1280 
1281 
1282 
1283 
1234 
1265 


005374 


005402 
005406 
005410 
005414 


005462 
005462 
005464 
005470 
005474 


29-MAR-76 00:00 


012737 


005737 
001434 
104401 
000422 


104412 
042716 
011637 
012637 


177777 002040 
002002 
005416 


177770 
001774 
002004 


— — —— ————— — 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


#-1, @#RH70 Ur SWi2 = 1, CO TS AW RH7O 

@ESELECT aWAS If A 200 START. 

Tst1 dSKIP BERT TF STARTING FROM 200 -----------<--) 
265$ a3TYPE ASCIZ STRING 

64$ 39GET OVER THE ASCIZ 


<€15><€12>/SELECT UNIT HUMBER TO BE TESTED 7/ 


#177770, (SP) sONLY KEEP LAST 3 BITS 
(SP), @80NIT sSAVE UNIT TO BE TESTED 
(SP)*,@SUNITSL SAVE UNIT TO BE TESTED 
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1286 
1287 
1268 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
132? 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 


005500 
005502 
005510 
005514 


005530 
005536 
005542 
005546 
005550 
005552 
005554 
005556 
005564 
005566 
005574 
005576 
005604 


005606 
005612 


005676 
005676 
005702 
005726 
005726 
005732 
005734 
005740 


005746 
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000004 
012737 
012706 
012737 


012737 


012737 
012700 
012701 
013102 
005300 
001375 
000471 
012737 
022626 
016137 
104015 
032777 
001053 


104401 
000431 


104401 
000411 


012746 
104402 
000137 
012737 
012737 


000001 
001000 
000001 
056142 
005556 


000024 
001630 


000006 
177776 
020000 


005614 


005704 


046160 


041234 
056132 
000006 


001212 
002032 
000030 
000004 


000004 
001200 
173334 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


33 SRAAAAAAARAAARALAARARARAARARAARARAARARARARARARARARAARAEAAAAARHASAAAAAARES 


a*TEST 1 REFERENCE EACH REGISTER 
»? REFERENCE EACH REGISTER BY A MOVE INSTRUCTION 


33 IIXV 


TSsTil: SCOPE 


wov @1,STINES 3300 1 ITERATION 

mov @STACK, SP sSET UP STACK POINTER 
wov @TTNO,@FTSTNN ZTHIS SAVES TEST HUMBER 
“ov @REGSAL,Q#EMTVECZERROR VECTOR SO THAT 


3NO REGISTERS ARE SAVED 
“ov #2$ ,@#ERRVEC sSET UP FOR BUS TIMEOUT ’ 


MoV #24, RO STHERE ARE 24 REG TO TEST 
MoV @RHDB,R1 3R1 WOW HAS ADDR OF ADDR OF FIRST REG. 
1$: MoV @CR1)¢,R2 SREAD HARDWARE REG. 
DEC RO 3COUNT DOWN 
BNE 1s sBRAUCH IP 24 NOT DONE 
BR 3$ sBRANCH IF 24 DONE 
2$3 MOV #ERRVECe2Z,Q@#ERRVEC ;RESTORE TRAP CATCHER 
cue (SP)¢,(SP)¢ sCLEAN STACK 
‘MOV “2(R1), $TMP1 sSTORE FAILING REC ADDR 
ERROR 15 pRECISTER BON EXISTANT 
BIT €SW13,eSuR ZINHIBIT ERROR PRINTOUT ? 
BNE 48 sBRANCH IP YES 
TYPE 765$ SOTYPE ASCIZ STRING 
BR 64$ 33GET OVER THE ASCIZ 
neseee eASCIZ <15>¢€12>/I1F BASE ADDRESS IS TO BE CHANGED HALT PROGRAM / 
452 
TYPE 267$ dsTYPE ASCIZ STRING 
BR 66$ 33GET OVER THE ASCIZ 
3367$2 -ASCIZ <€¢15>¢€12>/AND RESTART AT / 
66$: 
MOV #BASECH,-( SP) sGET READY TO TYPE STARTING ADORESS 
30F “CHANGE OF BASE ADDRESS” ROUTINE 
rvpoc 
452 Jvep @#SeOP 360 TO END OF PROGRAN ———— — 
3$3 MOV SSERROR, @REMTVECZRESTORE ERROR VECTOR 
3SO THAT REGISTERS ARE SAVED 
MOV @ERRVECe2,Q8ERRVEC 3; RESTORE TRAP CATCHER 
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1334 

1335 

1336 

1337 

1338 3*TEST 2 

1339 

1340 ze 

1341 pee 

134? 

1343 

1344 005754 000004 TST2: SCOPE 

134£ 005756 012737 000001 001212 MOV 

1346 005764 012706 001000 MOV 

1347 005770 012737 000002 002032 MOV 

1348 

1349 3 *CHECK 

1350 

1351 005776 005737 002040 TST 

135% 006007? 00140? BEQ 

1353 006004 000137 006040 Jmp 

1354 006010 30$: 

1355 

1356 

1357 006010 013737 010656 0606030 MOV 

1359 006016 013737 001636 006032 MOV 

1359 006024 004537 042706 JSR 

1360 006030 000000 UN: 2 WORD 

1361 006032 000000 eWORD 

1362 006034 104001 ERROR 

1367 006036 0002707 RTS 

1364 

1365 

1366 

1307 

1368 

1369 

1370 

1371 3*TEST 3 

1372 

1373 006040 000004 TST3: SCOPE 

1374 006042 012737 000001 001212 MOV 

1376 

1376 006050 012737 000003 002032 MOV 

1377 

1378 006056 013701 001656 MOV 

1379 006062 012711 177777 MOV 

1380 006066 011137 001126 MOV 

1381 006072 105737 001126 TSTP 

138? 006076 001405 BEQ 

1383 006100 005037 001124 CLR 

1384 006104 010137 042204 MOV 

pee 006110 104001 ERROR 
6 
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FP TAAAAAAAAAAAAAAARAAAARAAAAERRALHAAAAERAARAAEHAARAARRERAAAAHRARAEEEEEE 


PHCS2-CONTROL AND STATUS 2 


#1,S$TIMES 
#STACK,SP 
#TTNO, @#TSTNM 


THIS PARTIALLY TESTS RHCS? TO EWABLE DETERMINATION 
OF THE NUMBER OF DRIVES PRESENT 


FF ATAAAARAKRAKRAARAAHAAARAAHAARAARAAKAS HAAR AReKAeAeKeRAResAReneganerenen 


3300 1 ITERATION 
sPESET STACK 
sTHIS SAVES TEST WUMBER 


TO SEE IF THE PROGRAM IS RUNNING WITH AN RH7O 


@#RHTO 
30$ 
TST3 


@#PRCS2¢12,@4UN 
@RRHCS2, RUNG 2 
RS, @SBITST 

0 

0 

1 

Pc 


PARTIAL TEST OF 


#1,STIMES 
#TTINO, QETSTNM 


@#RHAS,R1 
#-1,@R1 
@R1,e#SBODAT 
@#SBDDAT 
TST4 
aesconat 
R1,@#PREGADR 
1 


sTEST FLAG FOR RH70 CONTROLLER 
31f FLAG = 1, THIS TEST IS SKIPPED 
sIF FLAG = 0, DOO THIS TEST 


sTEST BITS IN REGISTER 

sONLY THESE BITS TESTED FOR READ/WRITE 
sADDRESS OF REG. BEING TESTED 

3IN CORRECT DATA RECEIVED 

sRETURN TO BLT3 ROUTINE 


FP AAAMAAAKLAAAAAAAHHSAHAHEHHAARAARAHRARAAAARHAAERAHAAAROERAAEEAAAAEEEE 


RAAS FOR UNIT NUMBERS PRESENT 


FF TAAARARAAAARAHAAAHRARAARAAARAERARAAAAREAARAAAAEAAAAERAERAARERAARARAARAAAARRED 


3300 1 ITERATION 
sTHIS SAVES TEST NUMBER 


3P1 HAS ADDRESS OF RHAS 
sTHIS CLEARS RHAS (SURPRISED!) 
sTEST DATA 


sPRANCH IF GOOD 
3GOOD DATA 

sFAILING REG. RHAS 
ZRHAS DOES NOT CLEAR 
3BY WRITING ONES IN 


AY 











~ 
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DZRJGA.P11  29-MAR-76 00:00 PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT 
1387 
1388 
1 399 33 SRAEATAAARAAAKAARAAAARASAARARAARAAKRAARARARAAARARARARAAAAARARAARARARAAAREA 
1390 p*TEST 4 TEST FOR DRIVES PRESENT USING RHAS AND RUCS2 
1 391 33 SHRAALAATARAAAARAAAARAARAARAARAAARAAARARARAARARRAAARARARKRAAARARHARARARAEA 
1392 006112 000004 TST4: SCOPE 
1395 006114 012737 000001 001212 mov #1,S$TINES 3900 1 ITERATION 
1 
1395 006122 000005 RESET sSTART WITH AN INIT 
1396 006124 012737 000004 002032 MOV STTNO,QFTSTNM  JTHIS SAVES TEST NUNBER 
1397 006132 004737 054672 JSR PC, OSSTKINT sINITILIZE TTY KEYBOARD 
1398 006136 032777 020000 172774 BIT #S¥13,@SWR sTMHIBIT ERROR TYPEOUT? 
1399 006144 001147 BRE 4g sBRANCH IF YES 
1401 006146 104401 006154 TYPE ,65$ S>TYPE ASCIZ STRING 
1402 006152 000430 BR 645 39GET OVER THE ASCIZ 
1403 3365$2 eASCIZ ¢15>€12><15><12>/LOOKING AT RHAS - DRIVES ASSUMED PRESENT/<15><12> 
1404 006234 645: 
1405 006234 104401 006242 TYPE ,67$ seTYPE ASCIZ STRING 
1406 006240 000427 BR 66$ 33GET OVER THE ASCIZ 
1407 3367$: eASCIZ <15><1 2ZdfSAAARAARALALARAAAARAAAAAARARAAAHAOHARAAEAREA, 
1408 006320 66S: 
1409 006320 104401 006326 TYPE ,69$ sTYPE ASCIZ STRING 
1410 006324 000425 BR 685 33GET OVER THE ASCIZ 
1411 3369$3 .ASCIZ ¢15><12>/ THIS MUST BE VERIFIED BY OPERATOR 11/ 
1412 006400 68S: 
1413 006400 104401 006406 TYPE 71 B)TYPE ASCIZ STRING 
1414 006404 000427 BR 705 33GET OVER THE ASCIZ 
1415 3371$3 eASCIZ €C15D9C12>/ AAA a Aeae as AeaAaARAAAAAAAAeAAAes SHORRRARARAY 
1416 006464 70$2 
1 
1418 006464 013701 001656 4$2 MOV @#RHAS, Ri 3LOAD R1 WITH ADDR. OF RHAS 
1419 006470 013702 001636 MOV @#RHCS2, R2 $LOAD R2 WITH ADOR. OF RHCS2 
1420 006474 005012 CLR eR2 SCLEAR RHCS2 (ADDRESS UNIT 80) 
1421 006476 012700 000010 MOV #8., RO STIMITIALIZE DRIVE COUNTER 
1422 006502 013704 001642 MOV @#RHERI, RA 3LOAD R4 WITH ADDR. OF RHERI 
1423 006506 012714 177777 1$3 MOV 8-1,0R4 SMOVE ERRORS INTO RHER1 OF UNIT ADDRESSED 
1424 006512 005212 | INC @r2 PINCRENENT UNIT HO. (RHCS2) 
1425 006514 005300 DEC RO 3COUNT DOWN DRIVE COUNTER 
1426 00616 001373 BNE 1$ STEST AND DO WEXT UNIT IF 8 NOT DONE 
1428 006520 111137 002020 MOVE ©@R1,Q#TOTALAT SAVE ALL RESOLTING ATTENTION BITS 
1429 3(USED IW DRIVE CLEAR TEST) 
1430 006524 105037 002021 CLRR = @#TOTALAT#1 SCLEAR UPPER BYTE 
1431 006530 105711 TSTB = @R1 STEST RHAS POR ANY DRIVES PRESENT 
1432 006532 001402 BEQ 2$ dNONE RESPONDING - TYPE THE MESSAGE 
1433 006534 000137 007106 ume XE2 3SOME THERE = GO PILL “UNITS” TABLE 
1434 , 
1435 006540 032777 020000 172372 2s: BIT asui ↄ, osu⸗ pTUHIBIT ERROR TYPE OUT? 
1436 006546 001402 BEQ 3$ STYPE "NO DRIVES MESSAGE IF HO 
1437 006550 000137 007444 JMP SELTST SCHECK FOR SELECTED UNIT START AND LOAD 
1438 S"UNITS® TABLE WITH DESIRED DRIVE IP SO 
1 
1440 006554 3$3 
1441 006554 104401 006562 TYPE ,73$ d9TYPE ASCIZ STRING 
1442 006560 000421 BR 72$ 33GET OVER THE ASCIZ 
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1443 3373$: -ASCIZ 
1444 006624 7283 
1445 006624 104401 006632 TYPE 
1446 006630 000430 BR 
1447 3375$: .ASCIZ 
1448 006712 7452 
1449 006712 104401 006720 TYPE 
1450 006716 000430 BP 
1451 3377$3 -ASCIZ 
1452 007000 765: 
1453 007000 104401 007006 TYPE 
1454 007004 000436 BR 
1455 3379$3 -ASCIZ 
1456 007102 705: 
1457 
1458 007102 000137 041234 JMP 
1459 
1460 
1461 
1462 007106 RE2: 
1463 
1464 007106 012700 000010 2$3 MOV 
1465 007112 012703 001754 MOV 
1466 007116 012723 177777 3$3 MOV 
1467 007122 005300 DEC 
1468 007124 001374 BNE 
1469 
1470 007126 012703 001754 10$: MoV 
1471 007132 005005 CLR 
1472 007134 005037 001776 CLR 
1472 007140 012700 000010 MOV 
1474 007144 011137 001176 MoV 
1475 007150 006037 001176 4$3 ROR 
1476 007154 103120 Bcc 
1477 
1478 007156 010577 172454 11S: MOV 
1479 007162 022777 024020 172474 CMP 
1480 007170 001503 BEQ 
1481 007172 022777 020020 172464 cue 
1482 007200 001477 BE 
1483 
14864 
1485 
1486 
1487 007202 022777 024021 172454 cue 
1488 007210 001473 BEQ 
1489 007212 022777 020021 172444 cue 
1490 007220 001467 BEQ 
1491 
1492 007222 022777 024022 172434 cup 
1493 007230 001463 BEQ 
1494 007232 022777 022022 172424 CMP 
1495 007240 001457 BEQ 
1496 
1497 
1498 
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TEST FOR DRIVES PRESENT USING RAAS AND RHCS2 


<15>€12>/NO DRIVES PRESENT = RHAS = 0/<15><12> 


215$ S3TYPE ASCIZ STRING 

74$ 33GET OVER THE ASCIZ 

<€15><12>/URITING OWES INTO RHER1 FOR ALL UNIT BUNBERS/ 
277s SSTYPE ASCIZ STRING 

16$ 33GET OVER THE ASCIZ 


<€15><12>/DOES NOT SET ANY BIT IN RHAS SO ABORT PROGRAN/ 


279$ deTYPE ASCIZ STRING 
78$ 33GET OVER THE ASCIZ 
<15><12>/TO LOOP OW THIS TEST WO PRINTOUT, SET SWITCHES 13, 8 & 2/ 


@ssFoP 


3 60 QU PR ). 


3*561t UP DRIVES PRESENT TABLE 


#8.,R0 sLOAD “UNITS" TABLE COUNTER 
#UNITS,R3 SLOAD “UNTTS” TABLE POINTER 
#-1,¢(R3)¢ sPRESET 1ST TABLE BLOCK TO ALL ONES 
RO sCOUNT DOWN 

3$ SPRESET MEXT BLOCK IF 6 HOT DONE 
#UNITS,R3 SRELOAD THE TABLE POINTER 

RS SIMITIALIZE UNIT HO. TO 0 

@#NOUNIT 3NO. OF UNITS PRESENT 

#6.,R0 SRELOAD THE TABLE COUNTER 

@R1, 98S TMPO 3AD0R OF RHAS INTO TEMPORARY STORAGE 
@#STMPO 3SET CARRY If O BIT = 1 COMIT ATTEN.) 


5$ sCHECK WEXT UNIT IF ONE HOT If BIT 0 


RS, RRHCS2 STMSERT UNIT HO. INTO RACS2 UNIT ADDR. 
#24020, @RHOT SREAD RHDT - IS IT A DUAL PORT RPO4 ? 
6$ YES. TYPE THE UNIT NO. 

#20020, @RHOT sREAD RHOT - IS IT A SINGLE PORT RPO4 ? 
6$ SYES.2-TYPE THE UNIT HO. 


33 &IIIEIXX 


240 21, @QRHD‘ SDUAL PORT RPOS 7 

6$ sTYPE UNIT WO. IF SO 

#20021, HDT 3SINGLE PORT RPOS ? 

6$ sTYPE NO. IF SO 

#24022, @RHOT sPEAD RHDT - TS IT A DUAL PORT RPOG6 7? 
6$ sYES.c TYPE THE UNIT NO. 

#20022, ARHDT SREAD RAOT - IS IT A SINGLE PORT RPO6 7? 
6 SVES.e- TYPE THE UNIT NO. 


cf 
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OZRIGA.P11 29-MAR-76 00:00 T4 TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 
1499 
1500 s*NO. eo TT°S WOT AN RPO4/RPOS/RPOG DEVICE SO TYPE 
1501 3*OUT THE DEVICE TYPE 
1502 
1503 007242 104401 007250 TYPE 765$ sSTYPE ASCIZ STRING 
1504 007246 000410 BR 64$ 33GET OVER THE ASCIZ 
1505 3365$3 .ASCIZ <€15>¢€12>/UNIT NOMBER / 
1506 007270 64$: 
1507 
1508 007270 010546 nov R5,-(SP) sPUT THE UNTT HUMBER OW STACK 
1509 007272 104405 rreos sTYPE IT 
1510 007274 104401 007302 TYPE 267$ dSTYPE ASCIZ STRING 
1511 007300 000406 BR 66$ 39GET OVER THE ASCIZ 
1512 3367$: .ASCIZ /, RHOT = / . 
1513 007316 66S: 
1514 007316 017746 172342 MoV @RHDT,-(SP) sPUT RHOT OW TRE STACK 
1515 007322 104402 TyYPoc sTYPE If 
1516 007324 104401 007332 TYPE 269$ — ASCIZ STRING 
1517 007330 000422 BR 68$ T OVER THE ASCIZ 
15193 3369$: .ASCIZ ? - NOT AN RPO4saros/RPOS DEVICE tt? 
1519 007376 68S: 
1520 007376 000407 BR 5$ SUNIT HOT AN RPO4/RPOS/RPOG SO TEST WEXT OBE 
1521 
1522 007400 010523 6$: MoV RS, (RI Do sLOAD TABLE POSITION AND IuCR IT 
1523 007402 104401 001223 TYPE 2 SCRLF 3CRLE 
1524 007406 010546 Mov RS,-( SP) sPUT UNIT WO. OW THE STACK 
1525 007410 104405 rveos sTYPE THE UNIT HO. 
* 007412 005237 001776 Inc OenOUNIT sTUCR THE TOTAL BO. OF UNITS 
1 
1528 007416 005205 S$: Inc RS 3°RHCS2° UNIT ADDRESS 
1529 007420 005300 DEC RO sDRIVE COUNTER DOWN ONE 
1530 007422 001252 BME 4s dTEST AND DO WEXT UNIT IF & NOT DONE 
1531 
1532 007424 013737 001754 001774 12$: MOV QGUNITS, Q@GUNIT  ;SET UNIT HO. TO FIRST OWE FOUND/OR 0 
1533 007432 013737 001776 002000 MOV OGNOURIT, @BNUNIT ZSAVE HO. OF UNITS 
1534 007440 005337 002000 DEC OeNUNIT dTF MONIT = O THEN ONLY ONE UNIT 
pee 3TF NONITT > O THER MORE THAN ONE UNIT 
1536 . 
1537 007444 005737 002002 SELTST: TST @PSELECT SSTARTING ADDRESS 200 7 
1538 007450 001403 BEQ Ttsts sBRAUCH IF STARTING FROW 200 
1539 007452 013737 002004 001774 MOV QSUNITSL, QQUNTT ;CHANCE UNIT WUMBER TO SELECTED ONE 
1540 


DY 
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DZRIGA.P11 © 29=MAR=76 00:00 T4 TEST FOR DRIVES PRESENT USING RMAS AND RHCS2 
1541 
1542 
1543 33 AIIXX 
1544 *TEST S TYPE SERIAL NUMBER AWD DRIVE TYPE 
1545 
1546 yee SET APPROPRIATE ATTENTION BIT OF ONTT ONDER TEST IH 
1547 yee “ATTENT® AND TYPE THE UNIT ONDER TEST 
1548 
1549 pee READ SERIAL NUMBER REGISTER AND DRIVE TYPE REGISTER, 
1550 gee TYPE THEM OUT AND PROCEED 
1551 
1552 gee TO LOOP HERE SET SWITCH @ AND THIS TEST NO. AND RESTART 
a 
cone 33 SARARAARAAAAAAAARAAARAAAAAAAAARARAARAARAAAARAREKRERARRARSARARAAAAAAAAeR 
1555 007460 000004 TSTS: SCOPE 
1556 007462 012737 000001 001212 Mov #1,S$TINES 3300 1 ITERATION 
1557 007470 012737 010206 001106 mov #15, SLPADR 33SET SCOPE LooP ADDRESS 
1558 
1559 007476 012737 000005 002032 Mov #TINO,QRTSTNM ZTHIS SAVES TEST NUMBER 
1560 007504 004737 042534 JSR PC, @ECLDISK SPILL UNIT WO. 
1561 007510 005037 002016 CLR —BR CLEAR 
1562 
1563 s*TEST FOR UNIT 60 
1564 
156£ 007514 005737 001774 TST eeUNIT s1S UNIT 80 BEXT IW THE UNITS TABLE ? 
1566 007520 001022 BNE 10$ s1f WOT, TEST THIS UNIT 
1567 007522? 012700 000041 Mov #41,R0 s1f SO, CHECK THE LOAD MEDIA LOCATION 
1568 007526 122710 000011 CMPB #11, RO) 3WAS IT AW RPO4/S/6 2 
1569 007532 001015 BNE 10$ 3N0.e0GO AHEAD WITH TESTING UNIT 90 
1570 007534 005737 002002 rst dastueer auas UNIT BO SELECTED ? 
1571 9(IE. WAS IT A 210 START 2) 
1572 007540 001012 BNE 10$ SIP S0..-TEST IT 
1573 
1574 S*INCREMENT THE UNITS TABLE TO WEXT ORIVE (TF AWY) 
1575 — $*6 DECREMENT THE “NOUNITS® PRESENT (TO BE TESTED) 
1576 
1577 007542 012700 001754 mov sUNTTS,RO sLOAD THE UNITS TABLE POINTER 
1578 007546 005720 tst (ROD* PSELECT THE NEXT UNIT IW THE TABLE 
1579 3(DOURLE INCRENFNT THE POINTER, RO) 
1580 007550 022710 177777 ch #-1,(R0) 31S THERE ANOTHER TABLE ENTRY PRESENT ? 
1581 007554 001404 BEQ 10$ 31F WOT (LOC = -1)...MUST USE URIT #0 
1582 007556 011037 001774 MOV (RO) ,RGUNIT sSET UP TO BE THE UNIT ONDER TEST 
1583 007562 005337 001776 DEC @sNOUNITS sDECREMENT BECAUSE UNIT @ 0 WONT°T BE TESTED 
1584 007566 013700 001774 10$: = MOV OeUNTT,RO 3RO CONTAINS ONTT HO. 
1585 
1586 
1587 #*SET UP THE PROPER DEVICE TYPE FLAG 
584 
— 33 SALA KRAAASHAAAARAAERAHARARHARAARAHAREHRAARAARARHARAKAAAAAEAAAARAAAAeee 
1590 007572 010077 172040 Mov RO, @RHCS2 ;SET UP UNIT ADDRESS 
1591 007576 005037 002036 CLR eeRPos SCLEAR RPOG DEVICE TYPE FLAG 
159? 007602 022777 024022 172054 CMP $24027,@RHDT = ;DUAL PORT RPO ? 
1593 007610 001405 BFQ 2$ 3VES..eSET THE FLAG 
1594 007612 022777 020022 172044 cMP #20022,@RHOT = ;SINGLE PORT RPOG 7? 
1595 007620 001401 BEQ 2s sYES..SET FLAG 
1596 007622 000403 BH 3$ 9NO.-eDON°T SET RPOG FLAG oh 
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DZRIGA.P11 29-MAR-76 00300 TS TYPE SERIAL WUMBEP AND DRIVE TYPE 
— 007624 012737 177777 002036 28: MoV #-1,08RP06 2867 If 
1598 
1599 007632 3$3 JASSUME THE WEXT UNIT IS AW RPO4 
1600 3p PAMMAM AK eRe Re eRAReReeRARHeRAneReReReeReReeARAHaeReneesenerenees 
1601 
1602 007632 116037 004220 002016 nors ATABLE(RO),@GATTENT ZSET APPROPRIATE ATTENTION BIT 
1603 
1604 007640 104401 007646 TYPE 765$ s3TYPE ASCIZ STRING 
1605 007644 000414 BR 64$ 33GET OVER THE ASCIZ 
1606 3365$2 .ASCIZ <15>€12>/TESTING DRIVE BUMBER/ 
1607 007676 64$: 
1608 007676 013746 001774 nov @sUNIT,-( SP) sUNTT BO. TO STACK 
1609 007702 104405 TYPOS sTYPE DRIVE HO. 
1610 007704 104401 007712 TYPE 267$ s3TYPE ASCIZ STRING 
1611 007710 000410 BR 66$ 33CET OVER THE ASCIZ 
1612 3367$: .ASCIZ <15><€12>/SERIAL HO. = / 
1613 007732 66$: 
1614 007732 017746 171730 MoV @RHSN,-(SP) 33SAVE @RASW FOR TYPEOUT 
1615 007736 10440? tTvYPoc 2260 TYPE--OCTAL ASCIICALL DIGITS) 
1616 007740 104401 007746 TYPE 269$ 33TYPE ASCIZ STRING 
1617 007744 000410 BR 68$ 33GET OVER THE ASCIZ 
1618 3369$: .ASCIZ <15>€12>/0RIVE TYPE = / 
1619 007766 68$: 
1620 007766 017746 171672 MoV @RHDT,-( SP) 33SAVE QRHOT FOR TYPEOUT 
1621 007772 104402 rreoc 2260 TYPE--OCTAL ASCIICALL DIGITS) 
6 
ao Pp RMA MKeneerenenaeeeeeegranesaneasaneearnenananeeanenaeneaenaenees 
1624 007774 022777 024020 171662 CMP #24020, @RHOT s0UAL PORT PPO4 7? 
1625 010002 001425 BEQ 4s sTYPE ASCII MSG OUT 
1626 010004 022777 020020 17165? CMP #20020, @RHOT SSIWGLE PORT RPO4 ? 
1627 010012 001421 BEQ 4s sTYPE THE MESSAGE 
1628 
1629 010014 022777 024021 171642 cup 24021, @RHDT SOUAL PORT RPOS 7 
1630 010022 001453 BEQ 6$ dTYPE MSG 
1631 010024 022777 020021 171632 cup 20021, annor sSINGLE PORT RPOS 7 
1632 010032 001447 BEQ 6$ aTYPE MSG 
1633 
1634 010034 022777 024022 171622 cue #24022, @RHDT sDUAL PORT RPOG 7? 
1635 010042 001424 BEQ S$ sTYPE MSG 
1636 010044 022777 020022 171612 CMP #20027, ®RHOT SSINGLE PORT RPO6 7? 
1637 010052 001420 BEQ S$ sTYPE MSG 
1638 010054 000454 Be 1$ SDRIVE TS MOT AN RPO4/RPOS/RPOG - SO 
aoe sDON°T TYPE THE ASCII MESSAGE 
4 
1641 3-SHOULD WEVER HAPPEN AT THIS POLWT 
1642 SUNLESS DRIVE GOT SICK WHILE TESTING 
1643 dWAS IN PROGRESS 
1644 010056 4$3 
1645 010056 104401 010064 TYPE 271s S3TYPE ASCIZ STRING 
1646 010062 000413 BR 70$ 33GET OVER THE ASCIZ 
1647 3371$2 -.ASCIZ <15>¢€12>/DRIVE IS AW 9P04/<15><12> 
1648 010112 70$3 
1649 010112 000435 BP 1s sSKIP WEXT MESSAGE 
1650 010114 5$3 
1651 010114 104401 010122 TYPE 2713S SeTYPE ASCIZ STRING 
1652 010120 000413 BR 72$ 33GET OVER THE ASCIZ 
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DZRIGA.P11 29-MAR-76 00300 TS TYPE SERIAL MUMPER AND DRIVE TYPE 
1653 3373$2 sASCIZ <15>€12>/DRIVE TS AN RPO6/<€15><12> 
1654 010150 72$: 
1655 010150 000416 BR 1$ #SKIC NEXT 
1656 010152 6$: 
1657 010152 104401 010160 TYPE 275$ s3TYPE ASCIZ STRING 
1658 010156 000413 BR 74$ 33GET OVER THE ASCIZ 
1659 3375$2 eASCIZ <€15><€12>/DRIVE ITS AW RPOS/<15><12> 
1660 010206 74$3 
1661 XX 
1662 
1663 010206 005777 171454 1S: Ttst @RHSN #READ SERTAL HO. AND DRIVE TYPE 
1664 010212 005777 171446 Ttst @PHDT sTHESE TWO ARE TO HELP SCOPE LOOPS 
1665 010216 017737 171444 002012 MOV GRHSN,@FSAVSN }JSAVE TO CHECK IF CLR RACS2 BIT S CLEARS ANY BITS 
—8* 010224 017737 171434 002010 wovV QPHOT,@SSAVDT ;SAVE TO CHECK IF CLR RACS2 BIT 5 CLEARS ANY PITS 
166 
1668 


GY 








— — — — 
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DZRIGA-P11 29-MAR-76 00:00 TS TYPE SERIAL NUMBER AND DRIVE TYPE 
1669 
1670 pp eeeeaaneanereenensanaeararenaserasteananaeaenaneneneneneeneneen 
et s*TEST 6 CHECK MOL TO BE LOW 
1 ° 
1673 gee MAKE SURE THAT DRIVE IS OFF LINE BEFORE STARTING PROGRAM 
1674 eed If DRIVE IS OW LINE THEN AFTER TYPE CUT THE PROGRAM WILL 
—8 pos HANG FOR EVER WAITING FOR ORIVE TO GO OFF LINE 
eee — 
1678 010232 000004 TST6:  ## SCOPE 
1679 010234 012737 000006 002032 Mov STTHO,@8TSTUM ZTHIS SAVES TEST HUMBER 
1680 010242 004737 042534 JSR PC, RECLDISK IGIVE INITILIZE 
1681 010246 032713 010000 BIT #MOL,@R? sCHECK “OL IH RHOS1 
1682 010252 001551 BEQ TSst7 SBRAUCH IF MOL LOW 
1683 010254 104401 010262 TYPE 7265S seTYPE ASCIZ STRING 
1684 010260 000421 BR 64$ 33GET OVER THE ASCIZ 
1685 3365$: .ASCIZ €15><€12>/DRIVE TS OW LEWE - MOL IS HICH/ 
1686 010324 64S: 
1687 010324 104401 010332 TYPE 767$ dITYPE ASCIZ STRING 
1688 010330 000424 BR 66$ 33GET OVER THE ASCIZ 
1689 3367$2 .ASCIZ <15>¢€12>/HIT STOP OW DRIVE TO GET IT OFF LINE/ 
1690 010402 66$: 
1691 010402 104401 010410 TYPE 769$ ssTYPE ASCIZ STRING 
169? 010406 000430 BR o8$ 22667 OVER THE ASCIZ 
1693 3369S: .ASCIZ <€15>¢€12>/PROGRAM WILL HANG TESTING MOL TILL MOL IS Los / 
1694 010470 68S: 
1695 010470 032713 010000 1$: BIT @MOL, @R3 sCHECK MOL IW RHDS1 
1696 010474 001375 BNE 18 2baaucu IP MOL IS HICH 
1697 010476 104401 010504 TYPE 718 227VPE ASCIZ STRING 
1698 010502 000435 BR 70$ 33GET OVER THE ASCIZ 
1699 3371$2 .ASCIZ <15><12>/GO0D - MOL IS NOW LOW . PROGRAM WILL NOW BE EXECUTED/<15><12> 


1700 010576 70S: 
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OZRJGA.P11 


1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 


010576 
010600 


010606 
010612 
010614 
010620 


010620 


010624 
010630 


010636 
010644 
010652 
010656 
010660 
010662 
010664 


010666 


010670 
010674 


010702 
010710 
010716 
010722 
010724 
010726 


29-MAR=76 00:00 


000004 
012737 


005737 
001402 
000137 


004737 


012706 
012737 


013737 
013777 
004537 
020017 
176710 
104001 
000207 


000004 


012706 
012737 


013737 
013777 
004537 
001476 
176700 
104001 


000007 


002040 
010666 


042534 


001000 
000007 


001636 
001774 
042206 


001000 
000010 


001640 
001774 
042206 


002032 


002032 


010660 
170764 


002032 


010724 
170720 


CHECK MOL TO BE 


eSBTTL REGISTER TESTS 


I&& 


2er6s1 7 RHCS2 - CONTROL AND STATUS 2 
_ TEST LOADING AND READIEC OF ALL POSSIBLE BITS IN THE HARDWARE 
pred REGISTERS. USE A PETTERH OF WALKING 0°S (-2,-3,°5 ETC.) AND 
eo WALKING 1°S (1,2,4,10 ETC) 
3p PMMReeeenenaaenaneeseenerenaennaanerenenenansenaneesenenenanenee 
Tst7: scoet 
uovV STTNO,OPTSTNM ZTHIS SAVES TEST HUMBER 
s*CHECK TO SEE IF THE PROGRAM IS RUNNING WITH AW RH7O 
Ttst @#RH70 STEST FLAG FOR RH7TO CONTROLLER 
BEQ 30$ 3If FLAG = 1, THIS TEST IS SKIPPED 
J™P TST10 3JUMP TO HEXT s — — 
30$: aTf FLAG = 0, DO THIS TEST 
JSR PC, @SCLOISK sCIVE INITIALIZE 
MoV @STACK,SP sRESET STACK 
MoV STTNO,GETSTHM  ZTHIS SAVES TEST HUMBER 
MoV @PRHCS2, @SPRCS2¢14 SCGET RECISTER ADDRESS 
PRCS2: MOV QGUNIT,QRHCS2 ;MOVE UNIT BO. ONDER TEST 
JSR RS, BITST sTEST BITS IB REGISTER 
eWORD 20017 sOULY THESE BITS ARE TESTED FOR READ/ WRITE 
eWORD 176710 SADDRESS OF REG. BETNC TESTED 
ERROR 1 sTMCORRECT DATA RECEIVED 
RTs Pc SRETURN TO BLT3 ROUTINE 


JP ASAAAAAAAAHASAAAAAASHASAASHSAAAAASSHARAAEHARAAAAAKAAAAAAAAAeeeAs 


s*TEST 10 RHCS1 - CONTROL AND STATUS 1 RECISTER 

on TEST LOADING AND READING OF ALL POSSIBLE SITS IW THE RARDWARE 
3** REGISTERS. USE A PATTERN OF WALKING 0°S (-2,-3,-5 ETC) AND 
3** WALKING 1°S (1,2,4,10 ETC) 


TST10: SCOPE 


MOV #STACK, SP gRESET STACK 
mov @TTNO,@STSTNM ZTHIS SAVES TEST NUMBER 
MOV @FRHCS1, @RPRCS1+14 sGET REGISTER ADDRESS 
PRCS1: MOV QSUNIT,ARACS2 j;¥OVE UNIT HO. UNDER TEST 
JSR RS, BITST sTEST BITS IN REGISTER 
eWORD 1476 JONLY THESE BITS ARE TESTED FOR READ/URITE 
eWORD 176700 JADDRESS OF REG. PEING TESTED 
ERROR 1 ZTMCORRECT DATA RECEIVED 


TY 


MNDEC-11-DZRJG-A, RPO4/5/6 DSKLS CONTROLLER TST-PT 1 MACY11 30(1046) 08-DEC-77 — PAGE 38 


OZRJGA.P11 29-MAR-76 00300 T10 RHCS1 = CONTROL AND STATUS 1 REGISTER 
po 010730 000207 RTS ec SRETURN TO SLT3 ROUTINE 
1 


1759 
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DZRJGA.P11 § 29-MAR-76 00:00 T10 RHCS1 - CONTROL AWD STATUS 1 REGISTER 
1760 
ive Q 
1763 s*TEST 11 RHCS1 - BIT @ 13 = MCPE 
1764 re THIS FORCES A MASS BUS CONTROL PARITY ERROR 
1765 see BY SETTING °PAT°, LOOKING FOR “PAR°, WRITING RHCS1 
1766 pee AND READING RHERI 
1767 3 3 IIIIIITIVVVVIIICVECCCCDVCLCVV 
1768 010732 000004 TST11: scoet 
1769 
1770 010734 012706 001000 Mov @STACK, SP SRESET STACK 
1771 010740 012737 000011 002032 MOV #TTNO,QOTSTNM  JTHIS SAVES TEST WOMBER 
1772 010746 004737 042534 JSR PC, @BCLDISK SINIT AND SET UNIT HUMBER AND DEVICE - 
1773 3CPU REG. CORRESPONDENCE (R1-R4) 
1774 
1775 d°SET FORCED PARITY ERROR “PAT? 
1776 010752 052777 000020 170656 BIS #PAT, @RHCS2 dSET °PAT’ TO INVERT PARITY 
1777 dCENERATED 
1778 010760 005077 170656 cLR eRHeRi SURITE DCL REGISTER USING BAD CONTROL PARTTY 
1 
1780 s*WITH THIS PARITY ERROR WOTHTNG WILL BE READ TILL IT 1S 
1781 3*CLEARED 
1 
1783 010764 011137 001126 Mov @R1,@9SBDDAT © RHCS1 <---> sBDDaT 
1794 010770 022737 104200 001126 cup SSCIOVAIROL,geseDDAT »CONPARE RACS1 AFTER PARITY 
1786 010776 001406 BEQ 1$ s8RANCH IF scipvataoyet 
1787 011000 012737 104200 001124 Mov SSCIDVAIRDY, @#SGDDAT »COOD D 
1788 011006 010137 042204 MOV R1, RSRECADR sREGISTER ADDRESS RNCSi 
1789 011012 104001 ERROR 1 SSETTING PAT AND 
1790 SVRITING DCL REGISTER RACS1 
1791 3010 WOT SET SCIDVAtROY 
1792 sWITH “PAT? BIT HIGH 
1793 011014 013746 001774 1$: MOV QFUNIT,-(SP) 3CET UNIT NUNBER 
1794 011020 052716 000120 BIS @PATITA,(SP)  ;TNCLODE PAT AND IR 
1795 011024 012637 001124 MOV (SP)*,@8SGDDAT ;P0T ON STACK 
1796 011030 011237 001126 MOV @R2,@8SBDDAT  ( jRHCS2 ---> $BDDAT 
1797 011034 023737 001124 001126 cmp @ESCDDAT, AESSDDAT ZCOMPARE RHCS2 
1798 011042 001403 BEQ 2$ 20K = SCIDVAIRDOY ARE HIGH 
1799 011044 010237 042204 Mov R2, @#REGADR SREGISTER ADDRESS 
1900 011050 104001 ERROR 1 DREADING DCL REGISTER RACS2 DIO BOT 
1901 pSHOW UNITSIPATIIR BITS HIGH 
180 
1803 011052 011437 001126 28: MOV @R4,@8SBDDAT = ,RHERI ---> $BDDAT 
1804 011056 022737 000010 001126 CMP @PAR,QESBDDAT ERROR REGISTER RHER1 SHOULD 
1805 pHAVE °PAR® SET 
1806 011064 001406 BEQ 3$ 3A = OK, If DOES 
1807 011066 012737 000010 001124 MoV @PAR,@SSGDDAT GOOD DATA 
1808 011074 010437 042204 MoV R4, @BREGADR PFAILING REGISTER RHERI 
1809 011100 104001 ERROR 1 PPARITY ERROR DID WOT 
1810 3SET °PAR® 
1811 
1812 011102 3$3 


KY 
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OZRJGA-P11 29-MAR-76 00300 Til RHCS1 - BIT @ 13 = MCPE 
1613 
1614 
— RAeeeereereneanerteananaaeneaaeeenenanenrenanenenenenarenensene 
18617 3*TEST 12 RHWC = WORD COUNT REGISTER 
1618 3** TEST LOADIGG AND READING OF ALL POSSIBLE BITS IN THE AARDWARE 
1819 3** REGISTERS. USE A PATTERN OF WALKING 0°S (-2,-3,-5 ETC.) AND 
1820 3** WALKING 1°S (1,2,4, 10 ETC) 
1821 TEP titi iti iit itiitif itis tii i itiii i iii ii iit) 
Seas 011102 000004 TST12: SCOPE 
1824 011104 012706 001000 HOY #STACK,SP SRESET STACK 
seas 011110 012737 000012 002032 “Mov STTNO, OSTSTAN STHIS SAVES TEST HUMBER 
1 
1827 011116 013737 001632 011140 Mov ORRHVC, OEPRYCO14 sCET REGISTER ADDRESS 
1628 011124 013777 901774 170504 PRuCs: MOV @O#UNIT, @RACS2 SMOOVE UNIT BO. UNDER TEST 
1829 011132 004537 042206 JSR R5,8I1TST sTEST BITS IN REGISTER 
1830 011136 1977777 WORD 1977777 sOMLY TRESE BITS ARE TESTED FOR READ/ WRITE 
1831 011140 176702 WORD 176702 SADDRESS OF REG. BEING TESTED 
1832 011142 104001 ERROR 1 ; STNCORRECT DATA RECEIVED 
1833 011144 000207 ats ec sRETURH TO SLT3 ROUTINE 
1834 
1835 
1836 
18637 
1838 
1839 
1840 PPP iii iiiiititiiitiiiiitt) 
1841 s*TEST 13 RHBA - UNIBUS ADDRESS REGISTER 
1842 322 TEST LOADING AND READING OF ALL POSSIBLE BITS IW THE HARDWARE 
1843 3ee REGISTERS. USE A PATTERS OF WALKING 0°S (-2,-3,-5 ETC.) AND 
1844 3** WALKING 1°S (1,2,4,10 ETC) 
1845 Tri iii itiiii itis titiititiiiiiiiiliviiiiiiiiiitititi ty 
th 011146 000004 TST13: SCOPE 
184 
1848 011150 012706 001000 MOV @STACK, SP sRESET STACK 
roe 011154 012737 000013 002032 MOV STTHO, O#TSTEN sTHIS SAVES TEST NUMBER 
1 
1851 011162 013737 001634 011204 MOV Q#RHBA, @SPRBAC14 gGET REGISTER ADDRESS 
1852 011170 013777 001774 170440 PRBA: “MoV @sUNIT, QRHCS2 sMOVE UNIT WO. UNDER TEST 
1853 011176 004537 042206 JSR RS,BITST sTES? BITS IM REGISTER 
1854 011202 177776 2 WORD 177776 SONLY THESE BITS ARE TESTED FOR READ/WRITE 
1855 011204 176704 e WORD 176704 SADDRESS OF REG. BEING TESTED 
1856 011206 104001 ERROR 1 SINCORRECT DATA RECEIVED 
cose 011210 000207 RTS Pc SRETURN TO BLT3 ROUTINE 
1858 
1859 
1860 


LY 


~ 


ge — — — — — — — — — 
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1861 
1862 
1863 
1664 
1865 
1866 
1867 
1868 
1869 
1870 
18671 
1872 
1873 
1674 
1875 
1676 
1877 
1878 
1879 
1860 
1881 
1882 
1883 


011212 


011214 
011220 


011226 
011234 
011242 
011246 
011250 
011252 
011254 


29-MAR-76 00:00 


012706 
012737 


013737 
013777 
004537 
177777 
176714 
104001 
000207 


001000 
000014 


001642 
001774 
042206 


RABA - UNIBUS ADDRESS REGISTER 


3 RARAAAKARAKAATAAHARHRARLAAARARARAAARARARORAAAAAAARARARARARSARARARASA 


s*TEST 14 RHERL - ERROR REGISTER #1 
— TEST LOADING ABD READING OF ALL POSSIBLE BITS IW THE HARDWARE 
po REGISTERS. USE A PATTERN OF WALKING 0°S (-2,-3,-5 ETC.) AUD 
8 WALKING 1°S (1,2,4,10 ETC) 


pp MAAeanaeeanaaenganKenesanenakahenraneeneeeaneaneneneneerannanee 
TST14: SCOPE 


MOV #STACK, SP sRESET STACK 
002032 mov STTHO,ASTSTHM  JTHIS SAVES TEST NUMBER 
011250 MOV OFRHERI, OFPRERI+14 SGET REGISTER ADORESS 
170374 PRERI: MOV QSUNIT,GRHCS2 MOVE UNIT HO. UNDER TEST 
JSR RS,BITST sTEST BITS IN REGISTER 
eWORD 177777 JONLY THESE BITS ARE TESTED FOR READ/URITE 
eWORD 176714 JADDRESS OF REG. BEING TESTED 
erroR 1 STNCORRECT DATA RECEIVED 
RTS Pc SRETURN TO BLT ROUTINE 


my 
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1984 
186 
1386 
1997 
1868 
1889 
1990 
1991 
1°92 
1893 
1894 
1495 
1996 
1997 
1998 
1999 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
19i1 
1912 
1913 
1914 
1915 
1915 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 


011256 


011260 
011266 
011272 
011276 
011302 
011306 
011312 
011714 
011316 
011322 
011326 
011330 
011332 
011336 
011342 


011344 
011346 
011350 
011354 
011360 
011362 


011364 
011370 
011374 
011400 
011402 
011404 
011406 
01141? 
011416 
011422 


011424 
011426 
011430 
011434 
011440 
011442 


000004 


012737 
004737 
013700 
012701 
012702 
012710 
050110 
010146 
052716 
011637 
022610 
001405 
011037 
010037 
104001 


000241 
006101 
052701 
042701 
005302 
001351 


012701 
012702 
012710 
050110 
020110 
001407 
010137 
011037 
010037 
104001 


000261 
006101 
042701 
052701 
005302 
001354 


000015 002032 
042534 
001660 
000001 
000095 
000001 


0004)1 
001124 


001126 
042204 


000400 
001000 


000435 
000005 
000001 


001124 
001126 
042204 


001340 
000400 


MACY11 30(1046) 
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T14 RHEP1 - ERROR REGISTER #1 


FP RAASRALAAAAAALAAAHHAAAAOAAREARAORAAAARARARAAAAAAAHORERAAAERAERAAEE 


RHMR - MAINTEWANCE RECISTER 


s*TEST 15 
3*e 
3*8 
3e8 


BIT 0 (OMD) MUST BE SET BEFORE THE OTHER BITS 
ARE READ WRITE 
OWLY S LOW ORDEP RITS APE TESTED (R2 HAS 5) 


FP TATAAAAAAARARAARAAAAAAOAAKARAAAAARAAARARAAAARAERERAARARRARAARAAAAREERE 


TSTisS: SCOPE 
MOV 
JSR 
MOV 
Mov 
MoV 
MOV 
BIS 
MoV 
BIS 
MOV 
CMP 
BEQ 
MOV 
MOV 
ERROR 


ctc 
ROL 
BIS 
BIC 
DEC 
BWE 


#TINO, @2TSTNM 
PC, @SCLODISK 
@RRHMR, RO 
#1,F1 

#5,P2 
#DMD,@RO 
R1,@r0 
R1,-(SP) 
#0MD1400,( SP) 
(SP), @8SGDDAT 
(SP), aP0 

2$ 

@PO,SBDDAT 
kO, @#REGADR 

1 


k1 
#400,F1 
#B1T09,Pi 
R2 


1$ 


3*NOW FLOAT A 0 


MOV 
MOV 
MOV 
BIS 
CMP 
BEQ 
MOV 
MOV 
MOV 
ERROR 


4$3 SEC 
ROL 
BIC 
BIS 
DEC 
BNE 


#435,R1 
#5,R2 
#DMD, ARO 


R1,@aeSGDDAT 

@RO, @#SRODAT 
RO, @SREGADR 

1 


R1 


#BITOSIBITOGIBITOTIBITOI,R1 


#B1T08,R1 
R2 
3$ 


sTHIS SAVES TEST NUMBER 
sSET UNIT NUMBER AND INIT 
3RO HAS MAINTENANCE REG. 
dP1 HAS DATA 

3P2 HAS COUNT CF RUMBER OF FRITS 
#SET DIAGNOSTIC MODE BIT 

sSET DATA IW RHMR 

SSAVE DATA FOR COMPARES 
sTNCLUDE BIT O 

sSAVE FOR ERROR PRINTOUT 
sCOMPARE DATA 

sPRANCH IF GOOD 

7BAD DATA 

sFAILING REG. ADR. 
SMAINTEWANCE REGISTER 

sFAILED TO SET INDICATED 
28178 

sCLEAR CARRY 

3GET WEXT DATA 

sSET UNUSED BITS 

sCLEAP PEAD ONLY BIT 

sCOUNT 

sBRANCH IF 5S BITS NOT DONE 


3Ri HAS DATA 

382 HAS COUNT BITS 

sSET DIAGNOSTIC MODE SITS 
dSET DATA IN RHWR 
sCOMPARE DATA 

sBRANCH IF GO0D 

3GOOD DATA 

3BAD DATA 

sFATLING REG. ADR. RHMYR 
SMAINTENANCE REGISTER 
sDOES NOT ALLOW @PITING 
3ZEROS 

sSET CARRY 

sGET NEXT DATA 

sCLEAR READ ONLY BIT 
#SéT RIT ZEQGED BY ROL 
sCOUNT IF 5 BITS DONE 
sBRANCH IF INCOMPLETE 


AS 
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1940 
1941 





QBS 
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1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
19864 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 


011444 


011446 
011452 


011460 
011466 
011474 
011500 
011502 
011504 
011506 


011510 


011512 
011516 


011524 
011532 
011540 
011544 
011546 
011550 
011552 


000004 


012706 
012737 


013737 
013777 
004537 
017437 
176706 
104001 
000207 


012706 
012737 


013737 
013777 
004537 
177777 
176740 
104001 
000207 


001000 
000016 


001644 
001774 
042206 


001000 
0000°7 


001646 
001774 
042206 


002032 


011502 
170142 


002632 


011546 
170076 


RHWR - MAINTENANCE RECISTER 


33 SRAERAHAAAAASAAATAAAAAARAAARAARARAAAARAARAAAHAARAARARAAAAAHARAAAAAAEEAE 


s*TEST 16 RHDST - DESIRED SECTOR/TRACK ADDRESS 

~~ TEST LOADING AND READING OF ALL POSSIBLE BITS IR THE MARDWARE 
gee REGISTERS. USE A PATTERN OF WALKING 0°S (-2,-3,-5 ETC.) AND 
3*e WALFING 1°S (1,2,4,10 ETC) 


33 SHASARAAKAAAAARAAAAKARASAAHKARAARASARAARARARAARAAARAAAAAAAAARAAARAAREEEA 


TST16: SCOPE 


“ov @STACK,SP gRESET STACK 
nov STTHO,AETSTRN ZTHIS SAVES TEST HUMBER 
nov @FRAOST, BFPROSTO14 dCET REGISTER ADDRESS 
PROST: HOV QFUNIT,ORHCS2 jJPOVE UNIT HO. UNDER TEST 
JSR RS ,BITST sTEST BITS I REGISTER 
eWORD 17437 SONLY THESE BITS ARE TESTED FOR READ/URITE 
eWORD 176706 JADDRESS OF REG. BEING TESTED 
EreRoR 1 STUCORRECT DATA RECEIVED 
RTS PC sRETURS TO BLTI ROUTINE 


33 AEXX 


3*TEST 17 RHER2 - ERROR REGISTER #2 
3** TEST LOADING AND READING OF ALL PCSSIBLE BITS IN THE HARDWARE 
3ee REGISTERS. USE A PATTERN OF WALKING 0°S (-2,-3,-5 ETC.) AND 
32 WALFIWG 1°S (1,2,4,10 ETC) 


pp RA MHaeaeeereneneneareegeneneenenenereeasaneeenereraeneeenenaee 
TST17< SCOPE 


MOV #STACF,SP sRESET STACK 
MoV STTHO,@8TSTUM ZTHIS SAVES TEST NUMBER 
woV GPRHER2, OPPRER2+14 3GET REGISTER ADORESS 
PRER2: MOV QPUNIT,Q@RHCS2 ;MOVE UNIT HO. UNDER TEST 
JSR RS, PITST sTEST BITS IN REGISTER 
eWORD 177777 JONLY THESE BITS ARE TESTED FOR READ/ WRITE 
eWORD 176740 SADDRESS OF REG. BEING TESTED 
ERROR 1 sINCORRECT DATA RECEIVED 
RTS Pc sRETURN TO BLT ROUTINE 





cs 
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1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 


011554 


011556 
011562 


011570 
011576 
011604 
011610 
011612 
011614 
011616 


011620 


011622 
011626 


011634 
011642 
011650 
011654 
011656 
011660 
011662 


012706 
012737 


013737 
013777 
004537 
016277 
176732 
104001 
000207 


000004 


012706 
012737 


013737 
013777 
004537 
001777 
176734 
104001 
000207 


001000 
000020 


001650 
001774 
042206 


001000 
000021 


001652 
001774 
042206 


002032 


011612 
170032 


002032 


011656 
167766 


r17 RHER2 - ERROR REGISTER #2 


FP TATAAAAAAAAAASOAAAAAAKARELAAAAAAAHAAEAALAHARERORORAAARAHHAEREEES 


s*TEST 20 RHOF - MARGIN/OFFSET RECISTER 

— TEST LOADING AND READING OF ALL POSSIBLE BITS IS THE HARDWARE 
ed REGISTERS. USE A PATTEPH OF WALKING 0°S (-2,-3,-5 ETC.) AND 
— * WALKING 1°S (1,2,4,10 ETC) 


FF AAAAAAAAAAAARARARAAAAAAAAAAAAHARAHARASAARAAARAARAAARERERAERARER 


TST20: SCOPE 


MOV @STACK, SP sRESET STACK 
MoV STTHO,O#TSTNN ZTHIS SAVES TEST HUMBER 
“ov OFRHOF, EPROF +14 3GET REGISTER ADORESS 
PROF: MOV QSUNIT,ARHCS2 Z;MOVE UNIT HO. UNDER TEST 
JSR RS ,BITST dTEST BITS IN REGISTER 
eWORD 16277 SOMLY TRESE BITS ARE TESTED FOR READ/URITE 
eWORD 176732 JADDRESS OF REG. BEING TESTED 
ERROR 1 sTUCORRECT DATA RECELVED 
rts Pc sRETURS TO BLT3 ROUTINE 


FF SAAAARAARARALRARAAARARAAAAAAAAAAAAHAARAARARARARAAAKRAREAASERAAEREE 


#*TEST 21 RHCA = DESIRED CYLINDER REGISTER 

pee TEST LOADING AND READING OF ALL POSSIBLE BITS IW THE HARDWARE 
ee REGISTERS. USE A PATTERN OF WALKING 0°S (-2,-3,-5 ETC.) AND 
gee WALKING 1°S (1,2,4,10 ETC) 


PP TAA AAA 


TST21: SCOPE 


MoV @STACK, SP sRESET STACK 
MoV STTHO,@STSTUM ;THIS SAVES TEST HUMBER 
MoV O#RHCA, BEPRCACIA 3GET REGISTER ADDRESS 
PRCA: MOV Q#UNIT,@RHCS2  s;MOVE UNIT HO. UNDER TEST 
JSR RS, BITST dTEST BITS TM REGISTER 
eWORD 1777 sONLY THESE BITS ARE TESTED FOR READ/URITE 
eWORD 176734 ZADDRESS OF REG. BEING TESTED 
erRoR 1 STUCORRECT DATA RECEIVED 
RTS Pc SPETURN TO BLT3 ROUTINE 
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DZRIGA.P1L 29-MAR-76 00:00 T21 RHCA = DESIRED CYLINDER REGISTER J 
2041 
2042 q 
20 43 3 7 RRAKRAASKAAARAKAAAAAAAARARAARAARARARARARARARAARAHAARARARAARARARARAARARAAAE 
2044 s*TEST 22 RHER3 - ERROR REGISTER $3 
2045 3** TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE | 
2046 zee REGISTERS. USE A PATTERM OF WALKING 0°S (-2,-3,-5 ETC.) AND 
2047 3ee WALKING 1°S (1,2,4,10 ETC) 
2048 FP SAAS AS AAA SASAARAAAAAEAAAAAAAARAARAAAAAAAAAAARERAHERORARAAARAREED q 
2049 011664 000004 TST22: SCOPE 
2050 
2051 011666 012706 001000 nov #@STACK, SP sRESET STACK q 
2052 011672 012737 000022 002032 Mov #TTNO, QRTSTNN ;THIS SAVES TEST RUMBER 
2053 
2054 011700 013737 001654 011722 uov OPRHERI, OFPRERZC14 3GET REGISTER ADDRESS q 
2055 011706 013777 001774 167722 PRER3: MOV Q@#UNIT,@RACS2  ;MOVE UNIT HO. UNDER TEST 
2056 011714 004537 042206 JSR kS,B8ITST #TEST BITS IM REGISTER 
2057 011720 177777 WORD 177777 © ONLY THESE BITS ARE TESTED FOR READsWRITE q 
2058 011722 176742 «WORD 176742 JADDRESS OF REG. BEING TESTED 
2059 011724 104001 ERROR 1 PINCORRECT DATA RECEIVED 
2060 011726 000207 ats PC PRETORE TO BLT3 ROUTINE q 
2061 
2062 
2063 J 
2064 
2065 
2066 ; q 
2067 pp MMM eereereranenaacararerarenageearanersensasaangesannarennenene 
2068 d*°OF THE TWENTY RECISTERS (4 IW RH11, 16 IW RPO4) ONLY 12 ARE 
2069 3**CHECKED Im THE ABOVE TESTS q 
2070 3**TUO ARE ALREADY TESTED (SERIAL NO. AND DRIVE TYPE) 
2071 3**THE OTHER 7 WHICH ARE RHDS1, RHLA, RHCC, RHEC1, RHECL, RHEC2 
2072 3**ARE READ OWLY PECISTERS. ONE OR ZERO CANNOT BE WRITTEN q 
2073 3 3 SRASSKARAASARASRAARARASHANARAHARARAKAAAetAeAeesesenaaanagze2rzeneaesvaesenete 


2074 
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2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 


011730 
011732 
011736 


011744 


011750 


011754 
011760 
011764 
011770 
011772 


011774 
011776 
012002 
012006 
012010 
012014 
012016 
012020 


012022 
012024 
012030 
012032 
012036 
012040 


012044 
012046 


012050 


29-AR-76 00:00 


000004 
012706 
012737 


004737 


005037 


012701 
012700 
012721 
005300 
001374 


005012 
012700 
012701 
005714 
032712 
001415 
005 300 
001454 


011246 
042716 
005216 
013703 
005203 
112713 


012612 
000757 


022777 


001000 
000023 


042534 


002006 


051116 
000010 
177777 


000010 
051116 


010000 


177770 
001640 
000100 


024020 167606 35: 


002032 


T22 


MACY11 30(1046) 
RHEP3 - ERROR REGISTER #3 


08-DEC-77 13:57 PACE 47 


CONTROL AWD STATUS 2 (RHCS 2) - “WED? 


s*TEST 23 
3% 
378 


THIS TESTS THE UNIT SELECT PITS 80-2 (US1-4) 
AND NON-EXISTENT DRIVE BIT #12 (HED) 


THE OTHER RHCS2 BITS ARE NOT TESTED HERE 


33 IAIIIIIX 


TST233 
MoV 
MOV 


JSR 


CLR 


SCOPE 


@STACK,SP 


OTTHO, OSTSTNN 
PC, RECLOI SK 


@#ERFLGS 


sPESET STACK 
STHIS SAVES TEST HUMBER 


SHERE If IS USED TO SETUP HARDWAKE/ 
3CPU REGISTER CORRESPONDENCE 
sRiz=RBCS1 

gR2=RACS2 

3R3I=RADS1 

;R4=RHERI 

sCLEAR ERROR FLAG 


S*SIMULATED DISK AREA WILL BE USED AS A TEMPORARY 
s*STORAGE TABLE FOR DRIVES PRESENT DETERMINED FROW “NED° = 0 IM RECS2 


MoV 
Mov 
1$3 MoV 
1) 
BNE 


CUR 

MOV 

MOV 

2$: tst 
BIT 
BEQ 

7$3 DEC 
BEQ 


MOV 
BIC 
Inc 
MOV 
INC 


10$: 


s*CHECK THE UNIT TYPE AND BUILD 
#24020, @RHDT 


cP 


@OISK,R1 
#8.,R0 
8-1,CR1 Deo 
RO 

1$ 

@r2 
#8.,R0 
@DISK,R1 
@R4 
#NED,@R2 
3$ 

RO 

4$ 
@R2,-C(SP) 
#°C7, (SP) 
(SP) 
@#RHCS1,R3 
R3 
#100,8R3 
(SP)+,@R2 


2s 


sLOAD TABLE POINTER 

sLOAD TABLE LOCATION COUNTER 
SPILL 6 LOCATIONS WITH -1 
sCOUNT DOWN OWE LOCATION 
sBRANCH IF 8 BOT DORE 


dSELECT UNIT WO.0 (02101800=0) 
sPELOAD TABLE LOCATION COUNTER 
PRELOAD THE TABLE POINTER 

SPEAD A DRIVE REGISTER (RRER1) 

sNOW EXISTENT DRIVE BIT = 0 ? 
sYES..-DRIVE PRESENT, CHECK THE TYPE 
3¥O.--DECREMENT DRIVE COUNT 

sCHECE PESULTS IF 8 DRIVES DONE 


sPUT RHCS2 OW THE STACK 

sMASK ALL BUT THE UNIT NUMBER 
ZINCREMENT THE UNIT NUMBER 

3GET RHCS1 ADDRESS 

SADDRESS UPPER BYTE OF RHCS! 
sSET °TRE* Tm RACS1 

sWITHOUT ADDRESSING DRIVE 
sPHCS2 HAS THE INCREMENTED UNIT 
sWITH “WED CLEARED 

sTEST FOR NEXT DRIVE 


*WED® DERIVED UNITS TABLE 
215 THIS A DUAL PORT RPO4 ? 
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DZRIGA.P11 29-MAR=76 00:00 123 CONTROL AND STATUS ? (RHCS 2) - “NED? <q 
2131 012056 001425 BEQ 8s sENTER IW TABLE IF SO 
2132 012060 022777 020020 167576 CMP #20020, aRnDT 31S THIS A SINGLE PORT RPO4 ? | 
2133 012066 001421 BEQ 8s ENTER IN TABLE IF SO 
a*8 FF SAAAAARALAAAAAKAAAAAAAAAARARARARRARAARAAARAAAAORAARAAHEAAEAAAEAED € 
2136 012070 022777 024022 167566 cup 124022, @RHDT 31S THIS A DUAL PORT aros 7 
2137 012076 001415 BEQ 88 ENTER Im TABLE IF SO 
2138 012100 022777 020022 167556 cup #20022, @RHDT 31S THIS A SINGLE PORT RPOG ? | 
2139 012106 001411 BEQ AS pEWTER IM TABLE IF SO 
2140 
2141 012110 022777 024021 167546 CMP #24021, @RHDT 31S THIS A DUAL PORT RPOS 7 | 
2142 012116 001405 BEQ 8s ENTER IW TABLE IF SO 
2143 012120 022777 020021 167536 cue #20021, @RHOT 31S THIS A SINGLE PORT RPOS ? 
2144 012126 001401 BEQ 8 ENTER Im TABLE IF SO q 
21 4S ; 3 RARARAAAARARARAKRAARAAARARARARAARAERAARARAARKRARERARARARAARASARAAAARAAeAeE 
2146 
2147 012130 000732 — * Jd— _. , WO. RPO4 FOUND SO CHECK uxxr UIT  .—=-—aai............ ss. | X 
2148 ' ges» 
2149 012132 012746 000010 8S: mov #8.,-(SP) sLOAD MAX NO. OF DRIVES 
2150 012136 160016 suB RO, (SP) 3(SP) WOW HAS THE PRESENT DRIVE uO. | 
2151 012140 012621 mov (SP)e,(PR1)¢ 3LOAD TABLE, INCR TABLE LOCATION ¢ 
2152 RESTORE THE STACK TO WHERE IT vas 
2153 012142 605300 DEC RO #DECREMENT THE DRIVE COUNT q 
2154 012144 001402 BEQ 4s CHECK RESULTS IF 6 UNITS CHECKED 
2155 012146 005212 INC @R2 SELECT NEXT UNIT 
2156 012150 000716 BR 2$ 360 TEST IT q 
2157 
2158 
2159 *COMPARE °NED® DERIVED UNITS TABLE WITH THAT DERIVED USING RHAS IN 4 | 
2169 
2161 012152 004037 043430 45: JSR RO, @ECOMPAR COMPARE RESULTS 
216? 012156 001754 UNITS PRHERI/RHAS DERIVED DATA q 
2163 012160 051116 DISK 3°WED* TEST DATA 
2164 012162 000010 8. 30.0F WORDS TO COMPARE 
2165 012164 012172 5$ PRETURW FOR ERROR HEADER q 
2166 012166 012220 6$ 2RETURM FOR ERROR DATA 
2167 012170 012336 13$ RETURN FOR GOOD COMPARISON (NEXT TEST) < 
2168 
2169 
2170 
2171 *SPECIAL °WED°/°RHAS* TABLE TYPE OUT ROUTINE (BYPASSES .SERRTYP AND q 
2172 S*HENCE IGNORES INHIBIT ERROR TYPEQUT SWITCH) 
2172 
2174 012172 104022 55: ERROR 22 
2175 012174 012703 000010 Mov #8.,R3 3LENGTH OF BOTH UNIT TABLES 
2176 012200 012701 001754 mov #UNITS, RI ZADORESS OF RHAS/RHER1 UNITS TARLE 
2177 012204 012702 051116 MOV #DISK,R2 ADDRESS OF °NED*® RACS2 UNITS TABLE q 
2178 012210 012137 001124 14S: MOV (RI)e¢,88SGDDAT ;LOAD RHAS UNIT NO.INTO "S$GDDAT” AND 
2179 INCREMENT THE TABLE LOCATION 
2180 012714 012237 001126 MOV (R2)*,@#SBDDAT 3LOAD °NED* UNIT WO. INTO "$BDDAT@ < 
2161 3&8 INCR TABLE LOCATION 
2182 
2183 012220 032777 020000 166712 6$: BIT #SW13,@SWR INHIBIT ERROR TYPE OUTS ? € 
2184 012226 001043 BNE 13$ 2VES. ec EXIT 4 
2185 012230 022737 177777 001124 CMP #-1,@8SGODAT DOES RHAS UNIT TABLE LOCATION = -j ? 
2186 012236 001413 BEQ 11$ 3VES..-DON°T TYPE IT - CHECK °NED* TABLE < 








< 
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DZRJGA.P11 29-MAR-76 00200 T23 CONTROL AND STATUS 2 (RHCS 2) - “NED” < 

2187 012240 104401 062417 TYPE SPACES 3NO..-TAB OVER PC COLUMN 
2186 012244 104401 062417 TYPE @ SPACES STAB OVER THE TEST NO. COLUMN 
2189 012250 013746 001124 “ov @#SCODAT,-(SP) Z3SAVE @ESCDDAT FOR TYPEOUT 
2190 012254 104403 rveos 2260 TYPE--OCTAL ASCII 
2191 012256 006 eBYTE 6 s3TYPE 6 DIGITS 
2192 012257 000 eBYTE 0 33SUPPRESS LEADING ZEROS 
2193 012260 104401 062425 TYPE @ SPACE2 sSPACE OVER TO THE WEXT COLUMN 
2194 012264 000406 BR 12$ SCHECK THE °NED° UNIT TABLE 
2195 
2196 012266 104401 062417 1152 TYPE @ SPACES 3TAB OVER THE PC COMUNE 
2197 012272 104401 062417 TYPE @ SPACES 3TAB OVER THE TEST WO. COLUMN 
2198 012276 104401 062417 TYPE a SPACES STAB OVER THE RHAS UNIT COLUMN 
2199 
2200 012302 022737 177777 001126 12$: cup #-1,08SBDDAT 3DOES °WED® UNIT TABLE LOCATION = - 1 ? 
2201 012310 001404 BEQ 9$ sYES.2-DON°T TYPE IT 
2202 012312 013746 001126 “ov @BSBDDAT,-(SP)  3SAVE @#SBDDAT FOR TYPEOUT 
2203 012316 104403 tyPeos 33G0 TYPE--OCTAL ASCII 
2204 012320 006 BYTE 6 a3TYPE € DIGITS 
— 012321 000 BYTE 0 33SUPPRESS LEADING ZEROS 

6 
2207 012322 104401 001223 9$3 TYPE 7 SCRLP sPOR THE WEXT LIKE IN BOTH TABLES 
2208 012326 005303 DEC R3 sCOUNT DOWN 2 TABLES LOCATION COUNTER 
2209 012330 001327 BNE 14$ sTF WOT = O TYPE OUT WEXT 2 LOCATIONS 
2210 012332 062706 000014 aDD #14,SP sADJUST STACK FOR UO “POP” & RTS FROM “COMPAR” 
2211 
2212 012336 13$% 
2213 
2214 
2215 
2216 


FIENSTENSFENSSENSSENSFENSSENSSENSJENSJONSSENSSPNSSENSSENSJONS SENS SONS IANS 
FIPNSFENSFENSJENS SONS JENSJENSJPNSSONSJENSSENSSENSJOENSSENS/ 
BIPNSTENSJENSZENSZENSSENSZPNSJENSZENS SONS JPNSZENSSZONSJENSJENSSENSJ ONS — 


3*IN THE ABOVE TEST BITS 0,142, AND BIT 12 ARE TESTED 


s*IF THE “ORIVES PRESENT” TYPE OUT DOES NOT ACREE WITH WHAT WAS 


3*FOUND USING RHER1 & RHAS, THEN THE ERROR IS IW THE LOGIC 


#*FOR BITL2CNED), OR UNIT SELECT(RIT O TO 2), OR RHER1, OR RHAS 


3*IT IS NOT POSSIBLE BY PROGRAM TO CHECK IF A NON-EXISTENT < 
s*ORIVE IS REALLY STANDING THERE OR NOT 


33 SAKAAAAAARASAARAAAARAEARAAARAAAARARARAAAARAAAARAKAARARAAAAAARARAAARAAE 


q 
S*MANUALLY LOAD LOCATION “EPUNIT@ WITH A UNIT HUMBER 
3*AND RESTART AT LOCATION “ERSTAR™ THIS WILL LOOP FOR 
d*EVER DOING EXACTLY AS TEST ON THAT ONE UNIT q 


3*TO GET BACK TO MAIN DIAGNOSTIC HIT HALT SWITCH AND 
d*RESTART PROGRAM IN NORMAL MANNER < 


FIENTTENPTENTSENEZ ENTS SENOS ENESENESENSZ ENS ENS ENO SNES ENES SNES ENTS ENA ENE < 
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| OZRIGA.PLI 29-MAR-76 00:00 T23 CONTROL AND STATUS 2 (RHCS 2) - 


BIENPTENTPENSZ ENG ENTZ SNES NES ENO SNES SENOS ENTS ENAS SNES SNES ENO SNES ENT SNE 
STENPTENTASNET ENT ENT EVES SNPS ENTS ENTS ENTS SNES SNES SNES SENOS ENTS NOS ENA SNE 
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OZRIGA.P11 29-MAR-76 00:00 123 CONTROL AND STATUS 2 (RHCS 2) - <q 
2246 
2247 <q 
2248 
2249 
2250 PP TAAAAAALALARARAAAAAAAAEATARAAASEHAAARARAAEARAAAAASAHAARAARAREERED q 
2251 s*TEST 24 CONTROL AWD STATUS 2 (RHCS2) - °CLR° 
2252 3*THIS TESTS THE UNIT SELECT BITS (US1-4) AWD CLEAR BIT gS (CLA) P 
2254 P*ALL REGISTERS ARE LOADED WITH ALL OWES EXCEPT BIT gO AND 96 
2255 2*WHICH ARE "GO" AND “INTERRUPT ENABLE", THEN °CLR° IS GIVEN 
2256 3*(RHDB IS READ FIRST AS THIS WILL SET DTL Im RACS2 ABD <q 
2257 3*SC AND TRE IN RHCS1.) 
2258 
2259 S*ANOTHER CLR IS GIVEN THEN ALL OTHER REGISTERS ARE READ <q 
2260 D 
2261 012336 000004 TST242 SCOPE < 
2263 012340 004737 042534 JSR PC, aacud i sx a2ser RECISTERS AND CLEAR 
2264 012344 005037 002006 CLR @RERFLGS sCLEAR ANY ERRORS < 
2266 *FILL ALL POSSIBLE BITS WITH OWES 
226 
2268 012350 012777 177777 #167252 MOV €177777,@RHDB 38US ADDRESS REGISTER GETS 177777 ( 
2269 012356 012777 177777 167246 mov €177777,@RHWC 3;WORD COUNT REGISTER GETS 177777 
2270 012364 012777 177777 «167242 mov #177777,@RHBA 38US ADDRESS REGISTER GETS 177777 
2271 012372 052777 157010 167236 BIS #157010,@RHCS2 CONTROL AND STATUS 2 GETS 157010 | 
2272 012400 012777 001476 167232 Mov #1476, @RHCS1 CONTROL AND STATUS REGISTER/GETS 1476 
2273 012406 012777 177777 167226 MOV $177777,@RHER1 ERROR REGISTER] GETS 177777 
2274 012414 012777 017437 167222 MOV #17437,@RHDST DESIRED SECTOR TRACK t 
2275 012422 012777 177777 167216 MOV #177777, @RHER2 ;ERROR REGISTER 2 
2276 012430 012777 016277 167212 MoV #16277, eRHOF Z0FFSET REGISTER 
2277 012436 012777 177777 167206 mov #177777,@RHCA j;DESIRED CYLINDER <q 
2278 012444 012777 177777 167202 MOV #177777,@RHER3 j;ERROR REGISTER 3 
2279 012452 012777 000001 167200 MoV #0MD, @RHMR MAINTENANCE REGISTER 
220 012460 012777 177777 167172 MOV $177777,@RHMR ;MAINTERANCE REGISTER < 
1 
2282 012466 052712 000040 BIS @CLR,  @R2 3CLEAR ALL POSSIBLE BITS 
2283 012472 013712 001774 MOV @RUNIT, @R2 REINSTATE UNIT NOW d 
3 012476 012700 001630 mov @RHDB, RO RO CONTAINS ADDR. OF ADOR. OF REG. 
5 
2286 3*DATA BUFFER REGISTER q 
2287 
2288 012502 012737 177777 001124 mov #177777, @8SGODAT;GOOD DATA FOR ERROR 
2289 012510 011037 042204 MOV @RO, @#REGADR REGISTER ADDRESS | 
2290 012514 013037 001126 mov @(RO)+,@8SBDDAT ;TEST DATA 
2291 012520 023737 001124 001126 cue @SSGCDDAT, @ESBDDATZCOMPARE GOOD WITH TEST DATA 
2292 012526 001401 BEQ 2$ BRANCH IP GOOD <q 
2293 012530 104001 ERROR 1 pRHDB DID WOT HAVE ALL ONES 
33 ZAFTER A CLP IN RHCS2 P 
295 
2296 012532 052712 000040 25: BIS #CLR, @R2 #SET CLEAR AGAIN PECAUSE 
2297 READING RHDB AFTER CLEARING SILL 
2298 SET DLT SC AND TRE q 
2299 012536 013712 001774 MOV @RUNIT, @R2 sREINSTATE OMIT NO. sf 


2301 3*WORD COUNT REGISTER | 
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OZRIGA.P11 29-MAR-76 00300 T24 CONTROL AND STATUS 2 (RACS2) - 
2302 
2303 
2304 012542 012737 177777 001124 3S: MoV #177777, @8$CODAT 26000 DATA FOR ERROR TYPEOUT 
2305 012550 013037 001126 nov @CRO)+,RSSBDDAT ZSTEST DATA 
2306 012554 022737 177777 001126 Cue #177777, @8S80DaT sCOMPARE DATA 
2307 012562 001402 BEQ 4$ sBRANCH IF GOOD 
2308 012564 004737 013350 JSR PC, @SERCSIC dJUMP TO ERROR FOR CLR (BIT 5) 
2309 atm RACS2 
2310 
2311 3*BUS ADDRESS REGISTER 
2312 
2313 
2314 012570 012737 000000 001124 4$: mov #0,@8SGDDAT 26000 DATA FOR ERROR TYPEOUT 
2315 012576 013037 001126 nov @CRO)*,C8SBDDAT ZTEST DATA 
2316 012602 022737 000000 001126 Cup #0, 08#SB8DDAT SCOMPARE DATA 
2317 012610 001402 BEQ 5$ sBRANCH IF GOOD 
2318 012612 004737 013350 JSR PC, @SERCS2C 3JUMP TO ERROR FOR CLR (BIT 5S) 
2319 31m RACS2 
2320 . 
2321 s*CONTROL AND STATUS 2 REGISTER 
2322 
2323 
2324 012616 012746 000100 5$3 MoV #100,-(SP) sTNCLUDE IR 
2325 012622 053716 001774 BIS @sUNIT,( SP) 3SET UNIT HO. 
2326 012626 012637 001124 MoV (SP)*,@8S$CDDAT 6000 DATA FOR TYPE OUT 
2327 012632 013037 001126 MoV OC RO)*,OSSBDDAT ZTEST DATA 
2328 012636 023737 001124 001126 CMP GFSCDDAT, OBSBDDATPCOMPARE DATA 
2329 012644 001402 BEQ 6$ sBRANCH IF COOD 
2330 012646 004737 013350 JSR PC, @#ERCS2C 3JUMP TO ERROR FOP CLR (BIT 5S) 
2331 atm RHCS2 
233? 
2333 
2334 3*CONTROL AND STATUS 1 REGISTER 
2335 
2336 
2337 012652 012737 004276 001124 6S: MoV #4276, 88S$CDDAT 36000 DATA FOR ERROR TYPEOUT 
2338 012660 013037 001126 MOV @CRO)*,@#SBDDAT ZTEST DATA 
2339 012664 022737 004276 001126 CMP ⸗ SCOMPARE DATA 
2340 012672 001402 BEQ 7$ aRRANCH IP GOOD 
2341 012674 004737 013350 JSR PC, RBERCS2C 3JUmMP TO ERRCR FOR CLR (BIT 5) 
2342 31m RHCS2 
2343 , 
2344 S*ERROR 1 REGISTER 
2345 
2346 
2347 012700 012737 000000 001124 7$: Mov #0, @éSGDDAT 3GOOD DATA FOR ERROR TYPEOUT 
2348 012706 013037 001126 Mov @(RO)*,@#SBDDAT STEST DATA 
2349 012712 022737 000000 001126 CMP #0, 88SBDDAT 3COMPARE DATA 
2350 012720 001402 BEQ 10$ sBRANCH IPF GOOD 
2351 012722 004737 013350 JSR PC, @#ERCS2C 3JUMP TO ERROR FOR CLR (BIT 5) 
2352 atm RHCS2 
2353 
2354 s*DESTIRED SECTOR/TRACK RECISTER 
2355 
2356 


2357 012726 012737 017437 001124 10$: MoV #17437, @8SGODAT 3GO0D DATA FOR ERROKX TYPEQUT 





— — — — — — — — — — ——— — — ——— — — — — — — — 
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DZRIGA.P11 29-MAR-76 00:00 T24 CONTROL AND STATUS 2 (RACS2) - °CLR° 

2358 012734 013037 001126 MoV @CRO)*,@8SBDDAT STEST DATA 

2359 012740 022737 017437 001126 CMP €17437,@8SB8DDAT COMPARE DATA 

2360 012746 001402 BEQ 11$ sBRANCH IF GOOD 

2361 012750 004737 013350 Jsr PC, @#ERCS2C 3JUMNP TO ERROR FOR CLR (BIT 5) 
2362 atm RACS2 

2363 

2364 s*ERROR 2 REGISTER 

2365 

2366 

2367 012754 012737 000000 001124 11$: mov #0, @#SCDDAT 26000 DATA FOR ERROR TYPEOUT 
2368 012762 013037 001126 mov @CRO)*,O8SBDDAT TEST DATA 

2369 012766 022737 000000 001126 cuP 80, 08S8DD0AT SCOMPARE DATA 

2370 012774 001402 BEQ 12$ s8RANCH IF GOOD 

2371 012776 004737 013350 JSR PC, OFERCS2C 3JUMP TO ERROR FOR CLR (BIT 5S) 
2372 31m RACS2 

2373 

2374 . s*OPFSET RECISTER 

2375 

2376 

2377 «4013002 012737 116000 001124 12$: Mov #116000, e#$CDDAT 26000 DATA FOR ERROR TYPEOUT 
2378 013010 013037 001126 MOV OC RO)*,@SSBODAT PTEST DATA 

2379 013014 022737 116000 001126 CMP #116000, @#SBDDAT SCOMPARE DATA 

2380 013022 001402 BEQ 13$ sBRaucw IF GOOD 

2381 013024 004737 013350 JSR pesepencs2c 3JUMP TO ERROR FOR CLR (BIT 5) 
2382 stm RACS2 

2383 

coos s*DESTRED CYLINDER ADDRESS REGISTER 

2385 

2386 

2387 013030 012737 001777 001124 13$: MOV #1777,@8$CODAT GOOD DATA FOR ERROR TYPZOUT 
238@ 013036 013037 001126 ov @CRO)*,O8SBDDAT ZTEST DATA 

2389 013042 022737 001777 001126 CMP #1777,@8S8DDAT  ;COMPARE DATA 

2390 013050 001402 BEQ 14$ sBRAUCH IF GOOD 

2391 013052 004737 013350 JSR PC, @#ERCS2C sJUMP TO ERROR FOR CLR (BIT 5) 
2392 ‘ atm RHCS2 
2393 
2394 S*ERROR 3 REGISTER 

2395 
2396 

2397 013056 012737 000000 001124 14§: MOV #0, @8SCDDAT 26000 DATA FOR ERROR TYPEOUT 
2398 013064 013037 001126 Mov @CRO)+,O8SBDDAT ZTEST DATA 

2399 013070 022737 000000 001126 CMP $0,@8SBDDAT . j;COMPARE DATA 

2400 013076 001402 BEQ 15$ sPRANCH IP GOOD 

2401 013100 004737 013350 JSR PC, OSERCS2C 3JUMP TO ERROR FOR CLR (BIT 5) 
2402 atm RuCS2 

2403 

pees - S*ATTENTION SUMMARY REGISTER 

405 

2406 013104 013037 001126 15$3 Mov @( RO), @8SBDDAT 3GET RHAS CONTENTS 
2407 013110 012737 000000 001124 Mov #0, Q8SGDDAT 26000 DATA FOR ERROR TYPE OUT 
2408 013116 123737 001124 001126 CMPB ORSCDDAT, @ESBDDAT SCOMPARE FOR RHAS 

2409 013124 001402 BEQ 16 sBRANCH IF GOOD 

2410 013126 004737 013350 JSR PC, @#ERCSIC jJUMP TO ERROR FOR CLR (BIT 5S) 
a . 21u RHCS2 

1 


2413 S*MAINTAINABILITY REGISTER 





MNDEC-11-DZRJG-A, RPO4/S5/6 DSKLS CONTROLLER TST-PT 1 


MACY11 30(1046) O08-DEC-77 13:57 PACE 54 


OZRIGA.P11 29-MAR-76 00:00 T24 CONTROL AND STATUS 2 (RHCS2) = °CLR° 

at 

2416 013132 012737 000400 001124 16$: MOV #400,@8SGDDAT 26000 DATA FOR ERROR TYPEOUT 
2417 013140 013037 001126 ov @(RO)*,O8SBDDAT STEST DATA 

2418 013144 022737 000400 001126 cuP €400,@8SBDDAT ;COMPARE DATA 

2419 013152 001402 BEQ 17$ sBRAUCH IF GOOD 

2420 013154 004737 013350 JSR PC, @BERCS2C 3JUMP TO ERROR POR CLR (BIT 5S) 
421 3TH RUCS2 - , 
422 

peas s*ORIVE STATUS REGISTER 

2425 013160 012737 000600 001124 17S: mov #600,@8SGDDAT  ;COOD DATA FOR ERROR TYPEOUT 
2426 013166 013046 wov @(RO)+,-( SP) sGET RHDS1 

2427 013170 011637 001126 MoV (SP),@8SBDDAT ;TEST DATA 

2428 013174 042716 001100 BIC SVVIPROG,(SP) ;CLEAR VV AND PROG 

2429 013200 022726 000600 cme #600, (SP)* SCOMPARE DATA 

2430 013204 001402 BEQ 20$ sBRAUCH IP COOD 

2431 013206 004737 013350 ISR PC, @#ERCS2C 3JUMP TO ERROR FOR CLR (BIT S) 
2432 318 RHCS2 

2437 

2434 3*DRIVE TYPE 

a ; 
2437 013212 013737 002010 001124 20$: Mov OFSAVDT, OFSCODAT 26000 DATA FOR ERROR TYPEOUT 
2438 013220 013037 001126 Mov OC RO)*,ASSBDDAT sTEST DATA 

2439 013224 023737 002010 001126 cup essaror, @SBDDAT SCOMPARE DATA 

2440 013232 001402 BEQ 21$ sBRANCH IF GOOD 

2441 013234 004737 013350 JSR PC, O@FERCS2C dJUMP TO ERROR FOR CLR (BIT 5S) 
2442 atm RACS2 

2443 

2444 

2445 s*SERTAL WUMBER REGISTER 

2446 

2447 

2448 

2449 013240 013737 002912 001124 21$: MOV QFSAVSH, @FSCDDAT 26000 DATA FOR ERROR TYPEOUT 
2450 013246 013037 001126 MOV @(RO)+,O8SBDDAT ZTEST DATA 

2451 013252 023737 002012 001126 cue ORSAVSN, @#SBDDAT SCOMPARE DATA 

2452 013260 001402 BEQ 22$ _sBRANCH IF GOOD 

2453 013262 004737 013350 JSR PC, @FERCS2C 3JUMP TO ERROR FOR CLR (BIT 5) 
2454 stm RHCS2 

2455 

2456 

2457 s*ECC1 POSITION 

2458 

2459 

2460 013266 012737 00000 001124 225: MoV 60, @8SGDDAT 3GOOD DATA FOR ERROR TYPEOUT 
2461 013274 013037 061126 MoV @(RO)*+,@GSBDDAT TEST DATA 

2462 013300 022737 000000 001126 CMP #0, @6SBDDAT SCOMPARE DATA 

2463 013306 001402 BEQ 23$ sBRANCH IF GOOD 

2464 013310 004737 013350 JSR PC, @RERCS2C 3JUMP TO ERROR FOR CLR (BIT 5) 
2465 3TH RACS2 

2466 

2467 

2468 s*ECC2 PATTERN 


2469 
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OZRJGA.P11 29-MAR-76 00:00 724 CONTROL AWD STATUS ? (RHCS2) = “CLR 
2470 
2471 «013314 012737 000000 001124 235: MOV #0,@8SGDDAT 3GOOD DATA FOR ERROR TYPEOUT 
2472 013322 013037 001126 MOV @(RO)*¢,B8SBDDAT ;TEST DATA 
2477 013326 022737 000000 001126 CMP #0,@8SB00AT sCOMPARE DATA 
2474 013334 001402 BEQ 24$ sPRAWCH IP GOOD 
2475 013336 004737 013350 JSR PC, @#ERCS2C 3JUMP TO ERROR FOP CLR (BIT 5) 
2476 3TN RHCS2 
2477 
2478 
2479 s*LOOK-AHEAD REGISTER 
2480 
2481 013342 005720 2483 Tst CRO)* 3AS THE LOOK-AHEAD REG. CANNOT BE PREDICTED 
pee] sAFTEP AN INIT IT IS NOT CHECKED 
2494 d*CURRENT CYLINDER ADDRESS REGISTER 
2485 
2486 013344 005720 25$% Tst (RO)+ 3AS THE CURPEWT REG. CANNOT BE PREDICTED 
2487 sAFTEP A INTT IT IS WOT CHECKED 
2489 
2489 013346 26$: 
2490 013346 000405 BR TST25 sPRANCH OVEP JSP 
2491 
2492 
2492 013750 014037 042204 ERCS2Cs MOV -(RO), @FREGADR 3FAILING REGISTER ADDRESS 
2494 013354 104001 ERROR 1 CLR (BIT 5) IN RACS2 DID 
2495 ;NOT CLEAR APPROPIATE BITS 
2496 sOR CLEARED EXTRA BITS 
2497 013356 005720 TST (PO)+ 7UNDC -(RO) FOR BAD DATA 
2498 013360 000207 RTS Pc sPETURN TO TEST ABOVE 


Ab 
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DZRJIGA-P11 29-MAR-76 00:00 724 CONTROL AND STATUS 2 (RACS2) = °CLR 
2499 
2500 
2501 JP ASAAALAA AAA AAAAAAAAARAROARAAAALARAAALARAAAAAAAAAERARORAAARERORES 
2502 d*TEST 25 PACK ACKNOWLEDGE COMMAND TEST 
0 
2504 3ee THE PACK ACKNOWLEDGE COMMAND WILL BE LOADED INTO RHCS1 WITH CO 
2505 * ze⸗ THEW ALL REGISTERS WILL BE CHECKED 
7 2506 3*e RA CLEAR WILL BE GIVEN 
2507 3** THEN ALL REGISTERS WILL BE CHECKED 
+404 PP TAMRAAAAAAAAAAAARAAAKARAAAAAEAAAAAAARAAAARAAAALARAAAAORAEARAAAEOAER 
2510 013362 000004 TST25: SCOPE 
2511 013364 012706 001000 mov @STACK,SP RESET STACK 
2512 013370 012737 000025 002032 MOY @TTNO,QSTSTWM  jZTHIS SAVES TEST WUMBER 
2513 
2514 013376" 004737 042534 JSR PC, aacuoi sx INIT Aud SET UP GENERAL CPUs/DEVICE 
2515 ft SREGISTER CORRESPONDENCE AND UNIT NO. 
2516 013402 012777 000001 166250 mov #OMND, @RAMR 3SET DIAGROSTIC MODE 
2517 013410 013777 002100 166222 MOV @#PKACK,@RHCS1 LOAD "PACK ACKNOWLEDGE COMMAND INTO RHCS1 
1 
2519 S*SAVE REGISTERS FOR COMPARTSON APTER °CO° IS ISSUED 
2520 013416 004037 043226 JSR RO, OESAVER PSAVE 
e 2521 013422 001632 RAC 2FRON 
2522 013424 003154 , REINTO 3T0 
2523 013426 000023 19. #NUMBER OF REGISTERS SAVED . 
2525 ' 
a 2526 013430 052777 000001 166202 BIS aco, @RHCS1 ISSUE °GO° TO PACK ACKNOWLEDGE COMMAND 
5 
2528 d*CHANGE SAVED RECISTERS TO EXPECTED VALUES 
2529 013436 052737 000100 003204 BIS @VV,@PREINTO*30 SAVED RHDS1 
2530 
2531 2*APTER GO HAS BEEN GIVEN TO PACK ACKNOWLEDGE COMMAND 
2532 "SAVE REGISTERS AGAIN SO TRAT COMPARISONS CAN 
2533 3*BE DONE 
2534 
2535 013444 004037 043226 JSR RO, @#SAVEP sSAVE 
2536 013450 001632 anuc 3FROM 
2537 013452 002110 WwRFROM 
2538 013454 000023 19. RUMBER OF RECISTERS SAVED 
3 
2540 3*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
2541 d*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
2542 3*SO THAT THE COMPARES ARE OWLY VALID FOR THE LOWER BYTE 
2543 013456 113737 003201 002135 MOVB @FREINTO+25, @RURFROMS25;SAVE UPPER RHAS 
2544 
2£45 
2546 *COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE COMMAND 
2547 3*WITH AFTER GO 
e@ 254A 
2549 013464 004037 043430 JSR RO, ®9SCOMPAR 3COMPARE 
2550 013470 003154 REINTO 3CGOOD BUFFER 
2551 013472 002110 WRFROM #TEST BUFFER 
255? 013474 000023 19. sRUMBER 
2553 013476 013504 i$ RETURN FOR ERROR 
e@ 2554 013500 013504 1s SAME 





' 
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2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 


013502 
013504 
013510 
013512 


013520 


013522 
013524 


29-MAR-76 00:00 


013524 
013705 
060505 

016537 


104001 


000207 


047320 
001630 042204 


1$3 


2$3 


PACK ACKNOWLEDGE COMMAND TEST 


2$ SRETURW FOR GOOD COMPARISON 
nov — — sGETTING READY TO INDEX 

aoD R5,R sDOUBLE ERROR WORD 

MoV RAWC-2(RS), REREGADR SPATILING REGISTER ADDRESS 
errork 1 STMPROPER REGISTER CHANCE 


SAPTER PACK ACKNOWLEDGE COMMAND 
sWITH GO IS GIVEN 
RTS Pc sRETURN TO COMPARISON 


SCONTINUE WITH THE NEXT TEST 
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OZRIGA.PI1 29-MAR-76 00300 T25 PACK ACKNOWLEDGE COMMAND TEST 
2567 
2568 
ote ppt RMRAAAAeAAARANeeAReAENReRARAKeReNAeeAneReneReenenenesennesees 
2571 s*TEST 26 URIBUS INIT TEST 
2572 
2573 peed ALL POSSIBLE REGISTER BITS ARE FILLED WITH CHES 
2574 3*e =—°—sC« A SRESET COMMAND IS GIVER 
2575 ted ALL REGISTERS ARE CHECKED 
3377 Pp MMAReeReRARAAAREReeAeeenaneneneenanagananeeenanaeneaneasaeeeee 
2578 013524 000004 TST26: SCOPE 
2579 013526 012706 001000 MOV #STACK, SP SRESET STACK 
2580 013532 012737 000026 002032 “ov STTNO,OSTSTWN ZTHIS SAVES TEST HUNBER 
2581 013540 004737 042534 JSR PC, @BCLOISK 21017 AWD SET UP GENERAL CPU/DEVICE 
— JSREGISTER CORRESPONDENCE 
2584 S*FILL ALL POSSIBLE REGISTER BITS WITH ONES 
2585 
2586 013544 012777 177777 166060 NOV #177777,@RHUC s;WORD COUNT REGISTER GETS 177777 
2587 013552 012777 177777 166054 MoV 8177777,@RHBA  3;8US ADDRESS RECISTER GETS 177777 
2588 013560 052777 157010 166050 BIS #157010,@RHCS2 ;CONTROL AND STATUS 2 GETS 177430 
2589 013566 012777 001476 166044 Mov #1476, @RHCS1 sCONTROL AND STATUS REGISTER 1 GETS 21476 
2590 013574 012777 177777 166040 Mov #177777, @RHER1 ZERROR REGISTER CETS 177777 
2591 013602 012777 017437 166034 Mov ' $17437,@RHOST Z;DESIRED SECTOR TRACK 
2592 013610 012777 177777 166030 MOV #177777, @RHER2  ZERROR RECISTER 2 
2593 013616 012777 016277 166024 MOV #16277, @RHOF sOFPSET REGISTER 
2594 013624 012777 000777 166020 nov 0777, QR8CA sDESIRED CYLIWDER 
2595 013632 012777 177777 166014 Mov $177777,@RHERS ZERROR REGISTER 3 
2596 013640 012777 000001 166012 Mov SDMD, @RHAR SMAINTEWARCE REGISTER 
— 013646 012777 177777 166004 BOW #177777, @RHMR yMAIUTEWANCE RECISTER 
5 
2599 s*BEFORE RESET SAVE REGISTERS IN READ INTO BUFFER 
2600 013654 004037 043226 JSR RO, @#SAVER SAVE 
2601 013660 001632 RHWC 3PRON 
2602 013662 003154 RE INTO 270 
— 013664 000021 17. sWUMBER 
2605 3*GIVE RESET AND REINSTATE UNIT NUMBER 
2606 013666 000005 RESET 
2607 013670 004737 054672 JSR PC, O#STKINT sTHITIALIZE TK 
2608 013674 053777 001774 165734 BIS QPURIT, @RHCS2 
2609 
2610 d*CHANGE ORIGINAL SAVED REGISTERS TO EXPECTED VALUES AFTER RESET 
2611 013702 005037 003156 CLR OFREINTO*2 SCLEAR SAVED RHBA 
2612 013706 013746 001774 MOV @#URIT,-(SP) sCET UNIT BUMBER FRO SAVED RHCS2 
2613 013712 052716 000100 BIS #1R,(SP) sTIMCLUDE IR 
2614 013716 012637 003160 MOV (SP )*,@@REINTO*4 ZSAVED RACS2 
2615 013722 012737 004276 003162 MoV SOVAIRDYI76,@#REINTO*6 SSAVED RHCSI 
2616 013730 005037 003164 CUR @#REINTOSIO sSAVED RHER1 
2617 013734 005037 003170 CLR @#REINTOC1S sSAVED RHER2 
2618 013740 012737 116000 003177? MOV #116000, @#REINTO*16 ;SAVED RHOF 
2619 013746 005037 003176 CLR @#REINTOS22 sSAVED RHERS 
2620 013752 105037 003200 CLRB @#REINTOS24 sSAVED PHAS 
ote! 013756 012737 000400 003202 MoV #400, @SRETNTO*26;SAVED RHR DE 
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DZRIGA.P11 29-MAR-76 00300 T26 UWIBUS INIT TEST 
2623 : J*CHANGE RHDS1L WITHOUT CHANGING PROC BIT 
2624 013764 013746 003204 . Mov @#REINTO*30,-(SP) sCET RHDS1 
2625 013770 042716 176777 BIC #°CPROG, ( SP) sCLEAR EVERYTHING EXCEPT PROG 
ote 013774 052716 000700 BIS #700,( SP) 3SET EXPECTED BITS - “DPR°, “DRY° & “¥V" 
2628 014000 012637 003204 4$3 nov (SP), @#REINTO*30;SAVED RADS1 
2629 014004 005037 003212 CLR @FREINTOs36 sSAVED RHECI 
th 014010 005037 003214 CLR @FREINTOC4O sSAVED RHEC2 
1 
2632 s*AFTER RESET, SAVE REGISTERS FOR COMPARISONS TO BE DONE 
2633 014014 004037 043226 JSR RO, OBSAVER ISAVE 
2634 014020 001632 RAWC 3P RON 
2635 014022 002110 WRFROM 270 
— 014024 000021 17. sWOMBER 
637 
2638 3*AS UPPER BYTE OF RHAS CAN GE CHANGING IW A OVAL PORT 
2639 ; d*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
2640 3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
=s 014026 113737 003201 002135 MOVB O#REINTO+25, QFURFROMS2S SAVE UPPER RHAS 
2643 s*COMPARE REGISTERS BEFORE RESET WITH REGISTERS APTER RESET 
2644 014034 004037 043430 JSR RO, BECOMP AR sCOMPARE 
2645 014040 003154 REINTO 26000 BUFFER 
2646 014042 002110 WRFROM sTEST BUFFER 
2647 014044 000021 17. sNOMBER 
2648 014046 014054 18 sRETURN FOR ERROR 
2649 014050 014054 i$ . 3SAME 
—* 014052 014074 2s SRETURE FOR GOOD COMPARISON 
1 
2652 014054 013705 047320 1$3 MOV Q#ERWORD, RS SCETTIUG READY TO INDEX 
2653 014060 060505 ado RS RS sDOUBLE ERROR wORD 
2654 014062 016537 001630 042204 Mov RHUC-2(R5),OGREGCADR JFAILING REGISTER ADDRESS 
2655 014070 104001 ERROR 1 sREGISTER CONTENTS AFTER 
2656 3A RESET THAT IS an 
2657 SUNTBUS IBITIALIZE CAUSED 
2658 3AB IMPROPER RECISTER CHANGE 
2659 014072 000207 RTS ec sRETURW TO COMPARISON 
2660 014074 25: sPETURS TO POTNT ON GOOD COMPARISON 


fb 
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OZRIJGA.P11 29-MAR=-76 00300 726 UNIBUS INIT TEST 
2661 
2662 eSBTTL SILO TESTS 
2663 
2664 
2665 EEEXX 
2666 s*TEST 27 SILO TST 1 
2667 
2668 ae THIS TESTS THE SILO BUFFER IN TRE RH11 COWTROLLER 
2669 red A READ IS ATTEMPTED FROM AN EMPTY SILO 
2670 gee DATA LATE (DLT) (RHCS2), TRANSFER ERROR (TRE) (RHCS1), 
2671 + ald SPECIAL CONDITION (SC) (RACS1) SHOULD SET 
otk 3** THEN LOADING “1° TNTO TRE SHOULD CLEAR OLT, TRE AND SC 
od ehh db ttt Prt i tic tii) 
2675 014074 000004 TST27: SCOPE 
2676 014076 012706 001000 wov #STACK, SP SRESET STACK 
—8 014102 012737 000027 002032 Mov OTTNO,QSTSTNN  ZTHIS SAVES TEST NUMBER 
8 
ot a*CHECK TO SEE IF THE PROCRAM IS RUNNING WITH AW RETO 
2681 014110 005737 002040 tst @eRH70 sTEST FLAG FOR RH70 CONTROLLER 
2682 014114 001402 BEQ 30$ If FLAG = 1, THIS TEST IS SKIPPED 
2683 014116 000137 014252 Jup TSt30 dIUMP TO HEXT 7582 — 
2684 014122 30$3 31F FLAG = 0, DO THIS TEST 
2685 
2686 014122 004737 042534 JSR PC,CLOISK sCLEAR DISK ABD LOAD R°S 
2687 
268@ 014126 017700 165476 nov e@RNDB, RO sPEAD FROM EMPTY SILO 
2689 014132 013746 001774 MoV @#UNIT,-(SP) sCET UNIT HO. IN 
2690 014136 052716 100100 BIS @DLTITR, (SP) sGET DATA LATE BIT AMD IR 
2691 014142 004737 042140 JSR PC, OSPUTREG dSAVE REGISTERS 
2692 014146 022637 001712 cup (SP) o,@8CS2 31S DATA LATE BIT UP? 
2693 014152 001403 BEQ 1$ 3Tf YES BRANCH 
2694 014154 010237 001122 Mov R2, @8SBDADR 31f BOT STORE FAILING REC. 
2695 014160 104011 ERROR 11 gRHCS2 DID HOT RAVE DLT 
2696 sPHCS2? SHOULD HAVE ONLY 
2697 SDLT AND UNIT BUNBER (BIT 0-2) 
2698 dALL OTHER BITS SHOULD 
2699 38E 0 
2700 014162 022737 144200 001714 1S: cup SSCITREIRDVIDVA,@SCS1 3TS SPECIAL CONDITION, TRANSFER ERROR 
2701 3ABD READY UP? 
2702 014170 001403 BEQ 2$ 31? YES BRARCH 
2703 014172 010137 001122 NOV R1,@8SBDADR 31° BOT STORE FAILING REG. 
2704 014176 104011 ErRoR 11 sRHCS1 DID NOT RAVE SC, OVA 
2705 sTRE ABD ROY. APTER A 
2706 SREAD FROM EMPTY SILO ONLY 
2707 sTHESE BITS SHOULD BE UP 
2708 3ALL OTHERS SHOULD BE 0 
2709 014200 012711 040000 2$3 MoV STRE, @R1 SCLEAR ERROR BITS BY MOVING 
2710 sONE THTO TRE IW PHCS) 
2711 014204 004737 042140 JSR PC, Q@SPUTREG sSAVE REGISTERS 
oe 014210 022737 004200 001714 CMP @ROVIDVA, @gCS1 — — BUT ROY AND DVA SHOULD 
aBE 
2714 014216 001403 BEQ 3$ sBRAUCH IF YES 
2715 014220 010137 001122 — MOV R1, @#SBDAOR sSTORE FAILING ADDRESS 
2716 014224 104011 ERROR 11 dAPTER A OF TH TRE ONLY 
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DZRIGA.P11 29-MAR-76 00:00 ?27 SILO TST 
2717 sREADY AND DVA SHOULD BE SET In 
2718 sRHCS1 
2719 014226 013746 001774 3$3 nov Q#UNIT,-(SP) 
2720 014232 052716 000100 BIS @ (SP) 
2721 014236 022637 001712 CMP (SP)*,@8CS2 SRHCS2 SHOULD HAVE IR AND UNIT ONLY 
2722 014242 001403 BEQ TST 30 sBRANCH IF YES 
2723 014244 010237 001122 MOV R2, @#SBDADR sSTORE FATLINC ADDR 
2724 014250 104011 ERROR 11 ZAPTER A OWE TH TRE ONLY 


Gb 








ee ae Se SS eS eS Se Se eee 
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2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 


014252 
014254 
014260 


014266 
014272 
014274 
014300 


014300 


014304 
014310 
014314 
014320 
014324 
014326 
014332 


014334 
014340 
014346 
014354 
014356 
014360 
014362 
014366 
014372 
014376 
014402 
014404 
014410 


014412 
014416 
014422 


29-MAR-76 00:00 


000004 
012706 
012737 


005737 
001402 
000137 


004737 


013746 
052716 
004737 
022637 
v01403 
010237 
104011 


005077 
012777 
013737 
104415 
000000 
000200 
013746 
052716 
004737 
022637 
001403 
010237 
104011 


017700 
017705 
022700 


001000 
000030 


002040 
014500 


042534 


001774 
000100 
042140 
001712 


001122 


165270 
177777 
001636 


001774 
000300 
042140 
001712 


001122 


165212 
165206 
000000 


002032 


165262 
014356 
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SILO TST 1 


RAARAAAAAARAARAARAAARARAAAARAAAAAAARAAHAHARAAAAAAARAKAAAAAAAAAAEAES 


3*TEST 30 SILO TEST 2 

we THIS TESTS THE TR AND “OR” BITS OF RCS? 

— AT THE BECINNING TR SHOULD BE SET AND “OR RESET 

— LOADING 0 IN SILO RESETS TR FOR ORLY 2 MICRO SECONDS 

p= THIS TIME CANNOT BE CHECKED BUT IT IS CHECKED TO SEE If 
* IT DOES GO DOWN OF ROT 

an THEN ALL 1 ITS LOADED TW STLO “OR SHOULD BECOME SET 

—~ Im 30 AICRO SECONDS AGAIN TIME IS NOT CHECKED 

aed "OR" SHOULD BE SET 

~~ THE OUTPUT FROM THE SILO SHOULD BE o AND ALL ONES 


JP TTAAAAS SSAA ALAA AAAAHAAAHAAAHAAAAAAAAOHAERASAHAAAAARAAAAAARAEREE 


TST30: 


30$: 


1$: 


2$3 
25: 





SCOPE 
Mov eSTACK,SP sRESET STACK 
Mov STTBO,@STSTNM ZTHIS SAVES TEST RUNBER 
3*CHECK TO SEF IF THE PROGRAM IS RUNNING WITH AN RHTO 
Ttst @#RATO sTEST FLAG FOR RH70 CONTROLLER 
BEQ 30$ 31F FLAG = 1, THIS TEST IS SKIPPED 
JMP TST31 sJUMP TO NEXT TEST -------- ) 
sIF FLAG = 0, OO THIS TEST 
JSR PC, CLDISK sCLEAR REGISTERS LOAD R°S 
mov @sUNIT,-(SP) 
BIS #1R, (SP) 
JSR PC, @8PUTREG sSAVE REGISTERS 
on (SP)¢,@8CS2 3TR SHOULD BE SET “OR RESET 
Q 1$ 
MoV R2,@8SBDADR sPAILING REGISTER RACS2 
ERROR 11 sPHCS2 DOES BOT HAVE TR 
sSET, UNIT HO. SET AND 
JALL OTHER BITS 0 
CLR @PHDB sLOAD DATA BUFFER (SILO) WITH 0 
MoV #-1, @RHDB sLOAD STLO WITH ALL ONES 
MOV @#RHCS2, 8825 sADDRESS OF RACS2 
wat aWAIT TRAP 
WORD sADDRESS OF RHCS2 
oR 
MOV QRUNIT,-(SP) 3 
BIS #ORTIR, (SP) 31TR AND "OR" 
JSR PC, REPUTREG sSAVE REGISTERS 
CMP (SP), @8CS2 3TR AND "OR" SHOULD BE SET 
BEQ 4$ 
MoV R2,@8SBDADR SSAVE RHCS2 ADOR. FAILING REG. 
ERROR i1 3"OR* IW RHCS2 SHOULD BE 
sSET TOGETHER WITH IR AND 
sUNTT HO. 
MoV @PHDB, RO sSAVE STLO DATA SHOULD BE 0 
MoV @RHDB,RS SSAVE SILO DATA SHOULD Bé ALL 1 
cup #0,R0 SPIRST WORD O? XYZ DO MORE TEST HG 
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OZRIGA.P11 29-MAR-76 00300 SILO 
2781 014426 001410 BEQ 
2782 014430 005037 001124 CUR 
2783 
2784 014434 010037 001126 nov 
2785 014440 013737 001630 042204 wov 
2786 014446 104001 ERROR 
2787 
2768 014450 022705 177777 S$3 cue 
2789 014454 001411 BEQ@ 
2790 014456 012737 177777 001124 mov 
2791 014464 010537 001126 mov 
2792 014470 013737 001630 0422704 wov 
2793 014476 104001 ERROR 
2794 
2795 
2796 


MACY11 30( 1046) 
TEST 2 


5$ 
e#ScDDAT 


RO, @#SBDOAT 
a 


8-1,R5 

TST31 
@-1,68SCDDAT 
RS, @6SBDDAT 
oe @GRECADR 


06-DEC-77 13357 PAGE 63 


sPRANCH IF VES 
26000 DATA 


2840 DATA 

sSAVE RHDOB FAILING PEC. 

sSILO DID NOT HAVE THE FIRST WORD 
370° WHER “OR” WAS SET 
dSECOWD WORD ALL ONES? 
sBRANCH IP YES 

26000 DATA 

2840 DATA 

SSAVE RHDG FAILING REC. 

#SILO DID NOT HAVE THE SECOND 
SWORD OF ALL ONES WHER “OR 
aWAS SET 


Te 





€ ( 
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“| DZRIGA.P11 =: 29=MAR=76 00200 130 SILO TEST 2 | 
2797 
7 2798 | 
2799 Pp eMAMRAAeAReReeRATeeeReeRataRHeteReneseeeneAaeAensaneneaeeneenee 
: 2800 a*TEST 31 SILO TEST 3 
2801 
2802 ee THIS TESTS SILO BUFFER BY FILLING IT WITH A COURT FROM 
2803 -— 0 TO 65 AND THEN CHECKING IF IR IS DOWN AND “OR® 
: 2304 oo IS HIGH AND COMPARING THE SILO OUTPUT. 
e 
3806 ppt eeneereceneagenensensaensananeneaneneasneneenansensseeneeneees 
* 2807 014500 000004 TST31: SCOPE | 
oe 014502 012737 000031 002032 “ov GTTNO,QSTSTHUK ZTHIS SAVES TEST WUMBER 
9 
- 2910 s*CHECK TO SEE IF THE PROCRAM IS RUNNING WITH AN RHTO | 
2811 
2812 014510 005737 002040 TST eeRnT70 STEST FLAG FOR RH70 CONTROLLER 
J 2613 014514 001402 — BEQ 30$ Tf FLAG = 1, THIS TEST IS SKIPPED | 
2814 014516 000137 014740 JmP TST32 dJUMP TO NEXT — — — 
te 014522 30$3 aT? PLAC = 0, DO THIS TEST 
\ 
2817 
2818 014522 012700 051116 mov #SILOTB,RO STABLE POTHTER 
- 2819 014526 012705 000103 Mov 867.9R5 _ COUNTER | 
2820 014532 005020 i$: CLR CRODe sCLEAR TOTAL TABLE 
2921 014534 005305 DEC RS scousT 
7 2822 014536 001375 BWE 1$ JBRANCH IP WOT COMPLETELY CLEAR | 
2823 014540 004737 042534 JSR PC, RECLDISK sCLEAR ALL REG. 
2824 014544 005000 CLR RO 
7 2825 014546 012705 000102 mov 866.,R5 scout 
2826 014552 010077 165052 2S Mov RO, @RHDB LOAD SILO WITH COUNT FROM 0 TO 65 
2827 014556 005200 rnc RO dWEXT COURT 
J 2628 014560 005305 DEC RS 31S 66 LOADS DONE? | 
2829 014562 001373 BRE 2$ sRRANCH IF BOT. 
2830 014564 013746 001774 ov @#UNIT,-(SP) 
7 2831 014570 052716 000200 BIs #OR, (SP) | 
2832 014574 004737 042140 JSR PC, @SPUTREG JSAVE REGISTERS 
2833 014600 022637 001712 cuP (SP)¢, @8CS2 37OR* SHOULD BE SET IR RESET 
J 2834 014604 001405 BEQ 3$ sBRANCH IF YES | 
2835 014606 010237 001122 nov R2,@8SBDADR sSAVE RHCS2 ADR. FAILING REC. 
2636 014612 104011 ERROR 11 "OR" WAS NOT SET, IR WAS NOT 
7 2837 014614 005037 002006 CLR Q#ERFLGS SRESET APTER SILO WAS FULL 
2838 014620 012700 051116 3$3 Mov #SILOTB, RO sPOTNTER 
2839 014624 012705 000102 Mov 866.,°5 sCOUNTER 
J 2840 014630 017720 164774 4$3 nov @RHDB, (RO Do sREAD SILO 
2641 014634 005305 DEC RS scousT 
2842 014636 001374 BNE 4s BRANCH IF 66 NOT DONE 
J 2843 014640 012700 051116 MoV #SILOTB,RO sPOINTER 
2844 014644 012705 000102 ov #66.,R5 
2845 014650 005046 CLR -(SP) 
: 2846 014652 021620 58 cup (SP),(RO)* | 
2847 014654 001425 BEQ 7$ sBRANCH IP GOOD 
2848 014656 014037 001126 mov (RO), Q#SBDDAT  ;8AD DATA 
: 2849 014662 011637 001124 mov (SP),@#8SGDDAT 3COOD DATA 
2850 014666 013737 001630 042204 MOV @FRHDB,OPREGADR ZFAILING REG. RHDP nA 


2851 014674 005737 002006 tst @#ERFLGS 31S THIS FIRST ERROR? 
2852 014700 001002 BRE 6$ 31f NOT BRANCH 





la 
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STHESE TWO ERROR CALLS ARE FOR 
SBRARCH TO AVOID PRINTING MEXT ERROR 
STHE SAWE TYPEOUT. SILO 

SHAD A COUNT WRITTEN IH. 

30m READ OUT AN ERROR WAS 
SDETECTED. THE TOTAL SILO 
SREADOUT IS IB LOCATION 
e*SILOTB” TO THE REXT 65 
3wORDS. 

STUCRENERT (RO) 

dARE FURTHER COMPARES TO 

98E DONE 


#°CSW071SW08,(SP) ;0NLY KEEP SW7 AND sus 


DZRJGA.P11l 29-MAR-76 00:00 SILO TEST 3 
2853 014702 104012 ERROR 12 
2854 014704 000401 BR 648 
2855 014706 104013 6$3 ERROR 13 
2856 
2857 
2858 
2859 
2860 
2861 
ne 014710 005720 64S: tst CROD¢ 
2864 014712 017746 164222 nov esuRr,-( SP) 
2865 014716 042716 177577 BIC 
2866 014722 022726 000200 cue #SW07, (SP )0 
2867 014726 001403 BEQ 10$ 
2868 014730 005216 7$3 rnc (SP) 
2869 014732 005305 DEC RS 
2870 014734 001346 BNE 58 
2871 014736 005726 10$: tst (SP)¢ 


sTEST Sw07 

STF BO MORE COMPARE THEN BRANCH 
sWEXT GOOD WORD 

acount 

SBRANCH IP 66 HOT COMPLETE 

3POP STACK 


— — — — — —— — 
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OZRIGA.P11 


287? 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2862 
2883 
2864 
2885 
2886 
2887 
2668 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2698 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 


014740 
014742 


014750 
014754 
014756 
014762 


014762 


014766 
014770 
014772 
014776 
015002 
015004 
015006 


015012 
015020 
015022 
015026 
015030 
015036 
015044 
015052 
015054 
015062 


29-MAR-76 00:00 


000004 
012737 


005737 
001402 
000137 


004737 


005000 
605200 
010077 
022700 
001401 
000771 
004737 


032737 
001003 
010237 
104011 
017737 
012737 
023737 
001404 
013737 
104012 


000032 


002040 
015064 


042534 


164632 
000103 
042140 
100000 
001122 
164574 
000001 
001124 


001630 


002032 


001712 


001126 
001124 
001126 


042204 


T31 
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SILO TEST 3 


s*TEST 32 
3*e 
3e* 


SILO TEST4 


NOW PUT 67 WORDS INTO SILO AWD CHECK FOR DLT 
EVEN AFTER THE 67TH. WORD INPUT THE FIRST WORD SHOULD NOT CHANGE 


TST32: 


3*CHECK 


tst 

BEQ 

Jue 
30$: 


1$3 Inc 


2$3 JSR 


SCOPE 
nov 


STTHO, OFTSTHM 


dTHIS SAVES TEST HUMBER 


TO SEE If THE PROGRAM IS RUNBING WITH AW RH70 


@#RH70 
30$ 
TST33 


PC, @SCLDISK 
RO 

RO 

RO, @RADB 
867.,R0 

2$ 

i$ 

PC, OSPUTREG 
#0LT,e8CS2 
3$ 


R2, O8SBDADR 
il 


@RHDB, OF SBDDAT 


#1,@8SGCDDAaT 


sTEST FLAG FOR RHTO CONTROLLER 

IF FLAG = 1, THIS TEST IS SKIPPED 
3JUMP TO HEXT TEST -- 
21F FLAG = 0, DO THIS TEST 





=) 


«CLEAR DISK REG. 


sCLEAR RO 

3a0D 1 

sLOAD SILO 

367 DONE? 
sBRANCH IF VES 
3¥O SO RRANCH 
SSAVE REGISTERS 


gOLT SET? 

sBRANCH IP YES 

SPAILING ADDRESS RHCS2 

SDATA LATE DID NOT SET AT 67TH. 
21Iupur TO SILO 

3G00D DATA 


OBSCODAT, @SSBDDAT sCOMPARE 


TST33 


sPRANCH IF GOOD 


Q@SRHDB,APREGADR ZFAILING REC. RHDR 


12 


SVORD IN RHDB CHANGED 
sAPTER THE 67TH INPUT. 
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DOZRIGA.P11 


2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 


015064 
015066 


015074 
015100 
015102 
015106 


015106 


015112 
015116 
015122 
015126 
015132 
015134 
015140 


015142 
015146 
015150 


015152 
015154 
015160 
015162 
015170 
015172 
015174 
015176 
015202 
015206 
015212 
015216 
015222 
015224 
015230 


015232 
015236 
015242 
015244 





29-MAR-76 00:00 


000004 
012737 


005737 
001402 
000137 


004737 


013746 
052716 
004737 
022637 
001403 
010237 
104011 


013700 
005001 
010110 


005201 
022701 
103373 
013737 
104415 
000400 
000200 
004737 
013746 
052716 
004737 
022637 
001403 
010237 
104011 


013700 
012710 
011201 
011005 


000033 


002040 
015364 


042534 
001774 
000100 
042140 
001712 


001122 


001630 


000004 
001636 


042534 
001774 
000100 
042140 
001712 


001122 


001630 
000004 


002032 


015172 
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SILO TEST4 


$ RLKAAAARARRAKSARAARARAARLAKRAAAARERAAARAAREAAAEKRAAARRAeRANeeNNeAseee 


3s*TEST 33 SILO TEST 5 

pee THE SILO IS LOADED WITH 0,1,2,3 THEN AFTER 
gee “OR° IS UP A CLR IW RHCS2 IS DONE THEN 4, 
ees IS LOADED. AFTER “OR’ IS UP 2 READS FROM 


gee SILO ARE DONE, ON THE LAST, “DTL° IN RHCS2 SHOULD BE SET. 


JP TAAAASAAAARAAAAAARAAAAAAAARARAAAAAARAAAAAAARAAAAAAAARAAAAAALERS 


TST332 SCOPE 


3 *CHECK 


tst 

BEQ 

Jue 
30$: 


JSR 


1$: MOV 
2$3 MOV 


3$3 WORD 


4S: MoV 


STTNO, oors run 


27u1s SAVES TEST WUMBER 


TO SEE IF THE PROCRAN IS RUNNING WITH AN RTO 


PC, RECLDISK 


OsUNIT,-CSP) 
#IR, (SP) 

PC, @RPUTREG 
psrenegeses 


R2, @#SBDADR 
11 


@#RHDB,RO 
Ri 
R1,8R0 


R1 

84,R1 

2$ 
@FRHCS2, #35 
0 


PC, @SCLDISK 
@sUNIT,-( SP) 
#IR, (SP) 

PC, @BPUTREG 
(SP)¢,@8CS2 


4$ 
R2,@8S3DADR 
11 


@#RHDB,RO 
#4, @R0 
3353 
@RO,RS 


STEST FLAG FOR RA70 CONTROLLER 
UIF FLAG = 1, THIS TEST IS SKIPPED 
3If FLAG = 0, DO THIS TEST 


sCLEaR DISK 


sCET UNIT HO. 

3SET INPUT READY 

SSAVE REGISTERS 

3TR SHOULD BE SET "OR" CLEARED 
sBRANCH IF GOOD 

SPAILING REGISTER RACS2 
sPHCS2 DOES NOT HAVE IR — 
JAMO ALL OTHER BITS 0 

9P0 HAS RHDB ADDRESS 

sDATA 

30, THEN 1 THEN 2 THEN 3 
aT RADB 

STUCREMENT DATA 

31S 4 DONE 

sBRANCH IF HOT 


; 

sWAIT FOR “OR® 
sRHCS2 ADDRESS 
aWAIT OW OR. 
sCLR IM RACS2 
sUNIT HOW 


dSAVE REGISTERS 

3IR SHOULD BE SET “0"=0 
sBRANCH IP GOOD 

SPAILING REGISTER RACS2 
SPHCS2 DOES BOT HAVE IR SET 
3AUD ALL OTHER BITS 0 

3RO HAS RADB ADDRESS 

LOAD 4 IN SILO 

sSAVE RHCS2 

SPREAD THE 4 IW SILO 





~ 


my 
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gREAD SILO TO GET DLT 
sSAVE RHCS2 

sTEST FOR OP TN RHCS2 
31F OR TS WOT SET BRANCH 
sSILO 4 IS WOW COMPARED 


sSILO ADDRESS 

26000 DATA 

3RAD DATA 

3SILO DID MOT CONTAIN WORD 
sPUT I8 APTER “OR” WAS UP 
31S IT ZERO BECAUSE SILO 
31S DESTRUCTIVE READ 
sBRANCH IF GOOD 

sSILO ADDRESS 

3GOOD DATA 

sBAD DATA 

#SILO SHOULD BE ZERO 
sAPTER THE OWE WORD PUT IN 
SHAS BEEN TAKEN OUT AS 
3SILO IS A DESTRUCTIVE READ 


3 
sPRANCH IF DLT SET 
aGET ONTT NO 


3GOOD DATA 
38AD DATA 
sRHCS2 ADDRESS 


OZRIGA.P11 29-MAR-76 00:00 SILO TEST 5S 
2968 015246 011003 MOV @RO,RI 
2969 015250 011204 MOV @R2,R4 
2970 015252 032701 000200 BIT #OR,R1 
2971 015256 001424 BEQ 08 
2972 015260 022705 000004 CMP #4,R5 
2973 015264 001410 BEQ S$ 
2974 015266 010037 042204 MOV RO, S@#PRECADR 
2975 015272 012737 000004 001124 MOV #4, @8SCODAT 
2976 015300 010537 001126 MOV R5,28SBDDAT 
2977 015304 104001 ERROR 1 
2978 
2979 015306 005703 5$3 Tst R3 
2980 
2981 015310 001407 BEQ 6$ 
2982 015312 010037 042204 MOV RO, Q#RECADR 
2983 015316 005037 001124 CLR @#SCODAT 
2984 015322 010337 001126 MOV R3, @8SBDOAT 
2985 015326 104001 ERROR 1 
2986 
2987 
2968 
2989 015330 032704 100000 6$3 BIT #0LT,R4 
2990 015334 001013 BWE TST34 
2991 015336 013746 001774 “ov @SUNIT,-(SP) 
2992 015342 052716 100300 BIS #OLTIORIIR, (SP) 3 
2993 015346 012637 001124 MOV (SP) ¢, @8S$GODAT 
2994 015352 010437 001126 MOV R4,@8SB0DAT 
2995 015356 010237 042204 MOV R2,@#PRECADR 
2996 015362 104001 ERROR i 


sDATA LATE ERROR 


47 
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OZRIGA.P11 29-MAR-76 00:00 T33 SILO TEST 5S. 

2997 
2998 
2999 eSBTTL MORE REGISTER TESTS 
tte 
oe Pp MMeeeneeneereseeeereneneneaeranannerenenenanenaneneneAAeeneeee 
eee s*TEST 34 TEST ODD BYTE INSTRUCTION OW RHCS1 - RH11 

4 
3005 ates RDY (BIT 07) AND DVA (BIT 11) SHOULD ALWAYS BE SET 
3007 Pp eMAeeeeneaneraneanesanasenawreraenaaeneneenerseneeeneenenegaeareen 
3008 015364 000004 TST34: SCOPE 
3009 
3010 015366 012737 000034 002032 MOV @TTNO,@8TSTHM sZTHIS SAVES TEST HUMBER 
3011 
pete s*CHECK TO SEE IF THE PROGRAM IS RUNBING WITH AN RHTO 
3014 015374 005737 002040 Tst @#RH70 sTEST FLAG FOR RH7O0 CONTROLLER 
3015 015400 001402 BEQ 30$ 21F FLAG = 1, THIS TEST IS SKIPPED 
3016 015402 000137 015522 Jue Tst35 dJUMP TO WERT — — 
40 015406 30S: 31f FLAG = 0, DO THIS TEST 

1 

3019 015406 012706 001000 “ov #STACK,SP gRESET STACK 
ot 015412 004737 042534 JSR PC,CLOISK sCLEAR DISK REG. 

L 
3022 015416 012711 003566 Mov #3566, @R1 sLOAD RACS1 WITH ANY HUMBER 
3023 015422 010146 MOV R1,-(SP) SGETTING READY TO FORM ODD BYTE 
3024 015424 005216 Inc (SP) 3S? wOW HAS ODD BYTE FOR RHCS1 
3025 015426 112736 000005 MOvB #5, 8(SP)¢ sMOVE S INTO ODD BYTE FOR RACSI 
3026 015432 011137 001126 MOV @R1, @#SEDDAT sTEST DATA 
3027 015436 022737 006766 001126 CMP S25661DVAIRDY,@SSBDDAT ;RACS1 SHOULD HAVE 6766 
3028 015444 001406 BEQ 1$ sBRANCH IF GOOD 
3029 015446 012737 ooe7es 001124 MOV #2566 1DVAIRDY,@#SCDDAT 3CGOOD DATA 

FAIFAHHIHANGENG BE @CISCIPDEPDR RR ReCeRS1 s1 

3031 015460 104001 ERROR 1 sMOVING A NUMBER TuTO 
3032 3000 BYTE OF RHCS1 CAVE 
oe sWRONG RESULTS 
3034 
3035 015462 112711 000032 1$3 MOVB #32, @R1 sMOVE INTO EVEN BYTE 
3036 015466 011137 001126 MOV @P1,@#SBDDAT 3TEST DATA 
3037 015472 022737 006632 001126 CMP #2432 1DVAIRDY, @#SEDDAT ZRACS1 SHOULD HAVE 6632 
3038 015500 001460 BEQ TST36 300 NEXT RH11 TEST IF GOUD --<-<---<----------) 
3039 015502 012737 006632 001124 MOV #2432UDVAIRDY, @FSGODAT 3GOOD DATA 
3040 015510 010137 042204 MOV R1, @#°EGADR SPAILING RECISTER RACSI 
3041 015514 104001 ERROR 1 JMOVING A NUMBER INTO EVEN 
3042 sBYTE OF RHCS1 GAVE WRONG 
3043 sRESULT 
3044 
ae 015516 000137 015642 JMP TST36 SSKIP RETO TEST eoeco eee — 6—— —2 


6? 
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3047 
3048 
3049 
3050 
3051 


015522 


015524 
015532 
015536 


015542 
015546 
015550 
015552 
015556 


015562 
015570 
015572 
015600 
015604 


015606 
015612 
015616 
015624 
015626 
015634 
015640 
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012737 
012706 
004737 


012711 
010146 
005216 
112736 
011137 


022737 
001406 
012737 
010137 
104001 


112711 
011137 
022737 
001406 
012737 
010137 
104001 


000035 
001000 
042534 


003566 
000005 
001126 
004766 


004766 
042204 


000032 
001126 
004632 


004632 
042204 


002032 


001126 
001124 


001126 
001124 


734 TEST ODD BYTE INSTRUCTION OW RHCS1 - RHI1 


s*TEST 35 TEST ODD BYTE INSTRUCTION ON RHCS1 - RH70 
ed RDY (BIT 07) AND OVA (BIT 11) SHOULD ALWAYS BE SET 


33 LXXXX 


TST35: SCOPE 


MOV ETTWO/ORTSTNN © ;THTS SAVES TEST NUMBER 
Mov STACK, PRESET STACK 
JSR PC, CLDISK sCLEAR DISK REC. 
Mov #3566, @R1 3LOAD RACS1 WITH ANY wUNBER 
mov R1,-(SP) 3CETTING READY TO FORM ODD BYTE 
INC (SP) 3SP WOW HAS ODD BYTE FOR RECS 
MOVE = #5, @( SP) « 3MOVE S ISTO OOD BYTE FOR RHCSI 
nov @R1,e8SBDDAT TEST DATA 
cup #S6GIDVALRDY, Q$SBDDAT ;RHCS1 SHOULD HAVE 4766. 
BEQ 1$ 3BRANCH IF GOOD 
Mov S5661DVAIRDY,@@SGDDAT 3GOOD DATA 
Mov R1, @@REGADR 3PAILING REGISTER RECS 
ERROR 1 sMOVING A BUMBER INTO 
300D BYTE OF RHCS1 GAVE 
}WRONG RESULTS 
1$: move 42, eP 1 sMOVE INTO EVEN BYTE 
Mov @R1,@8SB0DAT TEST DATA 
cue #4321DVA1ROV, ensBDDAT pRHCS1 SHOULD HAVE 4632 
BEQ 33BRANCH IF GOOD 
MoV oo I « 3C00D DATA 
MoV R1, @#RECADR sPAILING REGISTER RACS1 
ERROR 1 3MOVING A NONBER INTO EVEN 
2BYTE OF RHCS1 GAVE WRONG 
sRESULTS 


MNDEC-11-DZRJC-A,RP04/5/6 OSKLS CONTROLLER TST-PT 1 MACY11 30(1046) 08-DEC-77 13:57 PAGE 71 
DZRJGA.P11  29-MAR-76 00200 735 TEST ODD BYTE INSTRUCTION OW RHCS1 - RH70 
3085 
3086 
3087 PRMARASAAAAARAAARARARAHAAAAAAAHAAAAAAAAARAARAAHERHRADEAARARAAARED 
3088 3*TEST 36 TEST ODD PYTE INSTRUCTION OW RACS2 
3089 
3090 ~ ae IR (BIT 06) AND THE UNIT SELECT (BIT 0-2) WILL BE SET 
—3* 33 SRARAAAAAAKRARAAARHAAAARAAARAAAARAARARAAAAARAHARRARARAARAAARRELAAAAAAAEA 
3093 015642 000004 TST36: SCOPE 
094 
3095 015644 012737 000036 002032 mov @TTNO,QETSTNM »rurs SAVES TEST WUNBER 
3096 
3097 ; 3*CHECK TO SEE IF THE PROGRAM IS RUNNING WITH AN RHTO 
3099 015652 005737 002040 Tst eFRH70 sTEST FLAG FOR RH70 CONTROLLER 
3100 015656 001402 BEQ 30$ 31 FLAC = 1, THIS TEST IS SKIPPED 
3101 015660 000137 016020 UMP TST37 3JUMP TO REXT TEST -------------------) 
3102 018664 30$: s1f FLAG = 0, 00 THIS TEST 
1 
3104 015664 004737 042534 JSR PC, @SCLOISK 3GIVE IWIT & SETUP REGISTER CORRES 
10 
3106 015670 052712 177000 BIS #177000,(P2) § 3LOAD RHCS2 
3107 015674 010246 Mov R2,-(SP) 3GETTING READY FOR ODD BYTE 
3108 015676 005216 INC (sP) 3SP NOW HAS ODD BYTE FoR RHCS2 
3109 015700 105036 CLRB = @( SP) sCLERR RHCS2 ODD BYTE 
3110 015702 013746 001774 MOV QRUNIT, -(SP)  3GET ONTT HO. 
3111 015706 052716 000100 BIS #1R, (SP) 3INPOT READY AS IT IS SET 
3112 015712 011237 001126 MOV @R2,eS80DAT ;TEST DATA 
3113 015716 022637 001126 cup (SP)¢,@@S$BDDAT COMPARE TO SEE THAT 
3114 s™CLRR® DID CLEAR 
3115 015722 001411 BEQ is 
3116 015724 013737 001774 001124 MOV @sUNIT, oescoodar 
3117 015732 052737 000100 001124 BIS #IR,  @#SCDDAT »COOD DaTA 
3118 015740 010237 042204 MOV R2, QPREGADR ;FAILING REGISTER RHCS2 
3119 015744 104001 ERROR 1 sCLEARING ODD BYTE OF RHCS2 
3120 3GAVE WRONG RESULTS 
3121 015746 013746 001774 1$: MOV @eUNIT, -(SP) 
3122 015752 052716 000010 BIS #BAl, (SP) 
3123 015756 052712 020000 BIS #UPE, @R2 sRAVE UPE AND MPE IW RHCS2 
3124 SBESIDES OMIT SELECT 
3125 015762 112612 MOVE (SP), @P2 3¥OVE INTO EVEN BYTE OF RHCS2 
3126 015764 013746 001774 MOV @fUNIT, -(SP) 
3127 015770 052716 020110 BIS #UPEITRIBAI, (SP) 
3128 015774 011637 001124 MOV (SP),  @#SGDDAT »GOOD DATA. 
3129 016000 011237 001126 MOV @P2,98SPDDAT  §§ ;TEST DATA 
3130 016004 022637 001126 cup (SP)*,@RSBDDAT ;COMPARE TO SEE THAT “OWB DID 
3131 sMOVE EVEN BYTE ONLY 
3132 016010 001403 BEQ TST37 33BRANCH IF GOOD 
3133 016012 010237 042204 MOV R2, @@REGADR SFAILING REGISTER RHCS2 
3134 016016 104001 ERROR 1 3MOVING A NUMBER INTO EVEN 
3135 sBYTE OF RHCS2 GAVE WRONG 
3136 sPESULTS 
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3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 


016020 


016022 
016030 
016034 
016040 
016044 
016050 
016052 
016054 
016060 
016064 
016072 
016074 
016102 
016106 


016110 
016114 
016120 
016126 
016130 
016136 
016142 


29-MAR-76 00:00 


012737 
012706 
004737 
013704 
012714 
010446 
005216 
112736 
011437 
022737 
001406 
012737 
010437 
104001 


112714 
011437 
022737 
001406 
012737 
010437 
104001 


000037 
001000 
042534 
001632 
025252 


000377 
001126 
177652 


177652 
042204 


000123 
001126 
177523 


177523 
042204 


002032 


001126 
001124 


001126 
001124 
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TEST OOD BYTE INSTRUCTION OW RHCS2 


s*TEST 37 
IN THIS REGISTER BO BITS SHOULD BE PERMANENTLY SET 


3*8 


ODD BYTE TEST OW RHYC 


33 XXXLIIIXXX 


TST37% 


1S: 


SCOPE 


GTTNHO,QETSTHN ZTHIS SAVES TEST NUMBER 
@STACK, SP SRESET STACK 


⸗ 
PC, CLOISK SCLEAR DISK REGISTERS 

@eRHuc, R4 oR4 BOW IS WORD COUNT REGISTER 
#252752, @R4 sLOaD RAWC 

R4, «. (SP) sCETTING READY TO FORM ODD BYTE 
(SP) 3SP BOW HAS ODD BYTE FOR RiWC 


8377,  @C(SP)¢ MOVE 377 IETO ODD BYTE OF RHYC 
@R4, 88SEODAT sTEST DATA 
#177652,@8SB80DAT;CONPARE TO SEE IF MOV DID OK 
i$ s8RANCH IF COOD 
#177652,@8$CDDAT 26000 DATA 


R4, @PRECADR ;RECTSTER PAILING RHWC 

1 sMOVING IBTO OOD BYTE OF RWC 
SGCAVE WRONG RESULTS 

#123, @P4 sPOVE INTO EVEN BYTE OF RWC 

@R4, OFSBDDAT sTEST OATA 

6177523, @#$80DAT 

Tst40 33BRANCH IF GOOD 

#177523,@8SCDDAT 3G000 DATA 

~ @PREGADR ZREGISTER FAILING RHWC 


€? ‘ 
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3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3164 
3185 
3186 
3187 
3168 
3189 
3190 
3191 
319? 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 


016144 


016146 
016152 
016160 
016164 
016170 
016174 
016176 
016200 
016204 
016210 
016216 
016220 
016226 
016232 


016734 
016240 
016244 
016252 
016254 
016262 
016266 
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000004 


012706 
012737 
004737 
013704 
012714 
010446 
005216 
112736 
011437 
022737 
001406 
012737 
010437 
104001 


112714 
011437 
022737 
001406 
012737 
010437 
104001 


001000 
000040 
042534 
001634 
025253 


000377 
001126 
177652 


177652 
042204 


000125 
001126 
177524 


177524 
042204 


002072 


001126 
001124 


001126 
001124 
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OOD BYTE TEST OW RHWC 


pe eanarenanerenenteneranenenarenrensenganeneneaneseaeteaneennene 
s*TEST 40 


TST403 


1$3 


TEST ODD BYTE INSTRUCTION ON RHBA 


BIT 0 SHOULD ALWAYS BE 0 


33 XVXRX 


SCOPE 


@STACK,SP sRESET STACK 

STTHO,@STSTNN  ZTHIS SAVES TEST NUMBER 
C,CLOISK 

@@RABA, R4 3®4 HAS ADORESS OF RHBA 
#25253, @R4 3LOAO RABA 

R4, -(SP)  s;CETTING PEADY FOR ODD BYTE 
(sP) 3SP HAS ODD BYTE ADR. OF RHBA 


$377, (SP)* j3LOAD ODD BYTE OF RHBA 

@R4,08SB800AT sTEST DATA 

€177652,@8SBDDAT;COMPARE MOVB RESULTS 

i$ sBRANCH IF GOOD 

#177652, @8SGODAT3;COOD DATA 

R4, @#REGADR 3FAILING REGISTER RHBA 

1 sMOVING INTO ODD BYTE OF 
SRHBA GAVE WRONG RESULTS 

#125, ard 


@R4, BeSRODAT sTEST DATA 
#177524, @#SB8D0AT 
Tst41 33BRANCH IF COOD 
mien 0 tt) pe oy DATA 
R4, QPREGADR FAILING REGISTER RHPA 
1 sMOVING INTO EVEN BYTE OF 
sRHBA GAVE WRONG RESULTS 


F? 
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3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 
3232 
3237 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 


016270 


016272 
016276 
016304 
016310 
016316 
016322 
016326 
016332 
016336 
016340 
016346 
016350 


016352 
016354 
016362 
016364 
016372 


29-MAR-76 002300 


000004 


012706 
012737 
004737 
012777 
005037 
012700 
012705 
023720 
001004 
062737 
000765 
005305 


001367 
032737 
001077 
013737 
062737 


001000 
000041 
042534 
000001 
002022 
002042 
000021 
002022 


000002 


000100 


002022 
000002 


002032 
16334? 


002022 


002022 


002104 
002022 


TEST ODD BYTE INSTRUCTION OW RHBA 


eSB8TTL DCL COMMAND TESTS 


5* FOUR GENERAL RECISTERS WILL BE RESERVED FOR HARDWARE 
et Ri=RHCS1 CONTROL AND STATUS1 

R2=RHCS? CONTROL AND STATUS? 

3** R3=RHDS1 ORIVE STATUS 1 

p= R4=RHER1 ERROR REGISTER 

ye WHEWEVER ANY OTHER USE IS MADE OF THESE REGISTERS 
gee APPROPIATE SAVING MUST BE DONE 


JP SAAAAAAARARAAAAAARAARARERSARARASEHAHARAAAAHES AAAS AReHARAeAeRenese 


FF SAAMAAAAAERAAAAAAAAARERAAAAAARAARAARAAAEAAARAAARAAAAAAHERAAAAEEEE 


a ERROR REGISTER 801 (RHER1) TEST 
3** BIT @1 CILLEGAL REGISTER) CANNOT BE TESTED O8 PDPI1 THIS BIT 
—- IS FOR PDP1O USE ONLY 


Jp TMAMASRAeegeaeKeRaaeseaeaeaaaeseaeasarcaraganeneanenenaeneneneee 


FF SAMAK AAA 


s*TEST 41 TEST ILF PIT 80 IW REC. RHERI 
gee ALL 3 ILLEGAL FUNCTION CODES SHOULD SET - ATA, ERR, ILF - AND ARE TESTED 
ee A GO WITHOUT CLEARING ILF ERR SHOULD SET - MXF,DLT, TRE - BITS AND THEY ARE ALSO 


FF SAAAAAAASAAAAAAAHAAAAAAARAEAAAASHHAAAAAAHAKAAARAHHAAAeRAsAAAAeARAee 


TST41: SCOPE 


Mov @STACK, SP sRESET STACK 
MOV GTTHO,O8TSTHM ZTHIS SAVES TEST NUMBER 
JSR PC, @@CLDISK SCLEAR RECISTERS 
“Ov #OMD, @RHMR sSET DIAGNOSTIC MODE 
CLR @eTMPILL sGET READY TO MAKE TLLEGAL FUNCTICH 
1$: MOV SFUTABL, RO sLOAD FUNCTION CODE TABLE START 
MoV 617.,R5 sCOUNTER (16 GOOD FUNCTIONS) 
2$% CMP GSTMPILL,(RO)* 31S THIS A LEGAL FUNCTION CODE? 
BNE 3$ 3NO - DECR. FUNCT. CODE CTR 
ado 62, Q8TMPILL sYES MAKE WEXT FUNCTION CODE 
BR 1$ sTEST WEXT FUNCTION CODE 
252 DEC RS sMAKE MEXT CODE IP 1ST 16 
sLECAL PUNCTIONS WOT DONE 
BNE 2$ sBRANCH IF 16 WOT COMPLETE 
BIT #100,8@TMPILL ;ALL BITS UP TO BIT 85 COMPARED? 
BNE 12$ #YES - EXIT -------> 
MoV QOTMPILL, @GILLEGL3NO - TEST THE ILLEGAL FUNCTIUN 
ADD #2, @8TMPILL STEST NEW FUNCTION CODE WEXT TIME 





G? 
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3260 
3261 
326? 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3264 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 


016400 
016404 
016412 
016416 
016424 
016430 
016434 
016436 
016442 


016444 
016450 
016454 
016462 
016464 
016470 


016472 
016476 
016502 


016506 
016510 
016516 


016520 


016524 
016530 
016532 
016534 
016536 


016542 


004737 
012777 
013711 
012737 
004737 
005737 
001403 
010437 
104011 


052711 
004737 
022737 
001403 
010437 
104011 


013746 
042716 
022726 


001404 
013737 
104011 


004737 


010237 
104415 
000000 
001000 
004737 


032737 


042534 
000001 
002104 
016400 
042140 
001716 


001122 


163246 
001110 


000001 
042140 
000001 


001122 


001716 


001736 
001000 
140700 


001662 001122 


044774 


016532 


042140 
040000 001714 


58: 


7$3 


10$: 
11s: 





JSR 


MOV 
wAT 
WORD 
MxF 
JSR 


BIT 
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TEST ILF BIT #0 IN REG. RHERI 


PC, OSCLDISK 
GOMD, @RHMR 
@#ILLEGL, @R1 
#4$7O8SLPERP 
PC, Q@BPUTREG 
ORER1I 


S$ 
R4,8SSBDADR 
il 


#60, eR1 
PC, QOPUTREG 
arte, eacai 


R4, QSSBDADR 
11 


e#DS1,-( SP) 
@PROG, (SP) 


3SET DIAGNOSTIC MODE 

dTILLEGAL FUNCTION <---> RHCS1 
sERROR RETURN POLUT 

sSAVE REGISTERS 

STHERE SHOULD BOT BE ANY ERROR VET 
sCONTINUE IF RHER1 STILL = 0 
dPAILIOG REGISTER ADDRESS RHERI 
SALTHOUGCH AW ILLEGAL FURCTION 
SHAS BEER MOVED INTO RUCSL 

380 ERRORS SHOULD SHOW TILL 
3CO IS SET RHER1 SHOULD BE 

sALL ZEROS 


260 IW PHCS1 

SSAVE REGISTERS 

STLLEGAL FUNCTION BIT SHOULD BE SET 
sIT IS = CONTINUE 

SPAILIOG REGISTER ADORESS RHER1 
STLLEGAL FUBCTION OTD BOT 

3SET OB AW ILLEGAL FUNCTION 
sEXECUTION, THE ILLEGAL FUNCTION 
sBETSG EXECUTED IS Im RACS1 


sGET RHDS1 
3MASK PROG 


GATALERRIVVIDPRIDRY,(SP)e 


SATTENTIONW (BIT 15) 

SVOLUME VALID (BIT 6) 
SCOMPOSIT ERROR (BIT 14) 
sDEVICE READY (BIT 7) SHOULD 
38E SET OW RADS1 

sTHEY ARE - CONTINUE 


7$ 
a SFAILING REGISTER ADDRESS RHDS1 


PC, @SMIDDOLE 


R2,8810$ 

0 

PC, Q@#PUTREG 
#TRE,A8CS1 


sPOLLOWING BITS SHOULD BE SET 
SWITH AN ILLEGAL FUNCTION 
SATTENTION (BIT 15) 

SCOMPOSTT ERROR (PIT 14) 
sMEDION OW LINE (BIT 12) 
sDEVICE READY (BIT 7) 


sCIVE A WRITE HEADER AND 
3DATA COMMAND WITHOUT 
SCLEARING THE ERRORS 
dUSTNG “"MIDDLE® SO THAT 
31T WILL COME BACK BEFORE 
sTHE END TO FIND OUT ITS 
sSTATE 

gMOVE RACS2 ADDRESS 
SWATT FOR °MXF° BIT 
ZADDRESS OF RACS2 


dSAVE REGISTERS 


STRANSFER ERROR (BIT 14) RHCS1 - “TRE” 


SSHOULD SET DOVE TO “MXF* 
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3316 
3317 
3318 
3319 
3320 
3321 
332? 
3323 
3324 
3325 


016550 
016552 
016556 


016560 
016562 


29-MAR-76 00:00 
001003 


010137 001122 
104011 


000660 
000240 


13$3 
12$: 
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TEST ILF BIT #0 IW REC. RHERI 


13$ 
R1, @#SBDADR 
il 


1s 


31T IS = CONTINUE 

SFAILING REGISTER RACSI 

STRANSPFER ERROR (BIT 14) RHCS1 - “TRE” 
sSHOULD BE SET DUE TO “NXF” 

sLOCAL SCOPE RETURN POIET 


260 BACK & TEST NEXT FUNCTION CODE 


« 
‘ 
< 
‘ 
< 
< 
< 
‘ 
< 
< 
< 
‘ 
< 
‘ 
< 
< 
< 
< 
< 
< 
< 
€ 
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OZRJGA.P11 29-MAR-76 00:00 T41 TEST ILF BIT #0 IN REG. RHERI 
38 
—383 XRXRRRRRX 
3329 s*TEST 42 READ IN PRESET 
3330 
3331 3** ALL POSSIBLE REGISTERS WILL BE FILLED WITH ONES 
3332 + ade THE REGISTER CONTENTS WILL BE SAVED IN REINTO BUFFER 
3333 gee THE READ IN PRESET COMMAND WILL BE GIVEN 
3334 gee ALL REGISTERS WILL BE CHECKED 
3335 
3336 XXXXVEXV 
3337 016564 000004 TST42: SCOPE 
3338 016566 012706 001000 MoV @STACK,SP sRESET STACK 
3339 016572 012737 000042 002032 mov STTNO, OF TSTNN sTHIS SAVES TEST HUMBER 
3340 
oo 016600 004737 042534 JSR PC, @SCLOISK SINIT AND SET GENERAL REGISTERS 
4 
3343 3*FILL ALL POSSIBLE BITS WITH OWES. 
3344 
3345 016604 012777 177777 163020 MOV #177777, @RHYVC SWORD COUNT REGISTER GETS 177777 
3346 016612 012777 177777 163014 MOV #177777, @RHBA 3B8US ADDRESS REGISTER GETS 177777 
3347 016620 012777 017437 163016 MOV #17437, @RHDST SsDESIRED SECTOR TRACK GETS 17437 
3348 016626 012777 016377 163014 MOV #16377, @RROF SOFPFSET REGISTER CETS 16277 
3349 016634 012777 000777 163010 MOV #777, @RHCA SDESIRED CYLINDER GETS 777 
3350 016642 012746 001400 “OV @AIGIAL7,-(SP)  3CET BIT 9 AND 8 
3351 016646 053716 002102 BIS @#READIN, (SP) 
3352 016652 012677 162762 MOV (SP )*, @RHCS1 FILL READ IW PRESET IW RHCS1 
—* 016656 012777 000001 162774 MOV #0MD, @RHAR 3SET DIAGNOSTIC MODE 
3355 3*TRE REGISTERS WILL BE SAVED IW REINTO BUFFER 
3356 016664 004037 043226 JSR RO, @SSAVER sSAVE 
3357 016670 001632 RawCc 3F ROM 
3358 016672 003154 REINTO 270 
3359 016674 000021 17. SWUMBER SAVED 
3360 
3361 3*GIVE READ IN PRESET COMMAND 
3362 016676 052777 000001 162734 BIS #CG0,@RHCS1 sINCLUDE GO TO READ IN PRESET 
3363 
3364 3*NOW SAVED REGISTERS WILL BE CHANGED TO EXPECTED VALUE 
3365 016704 005037 003166 CLR @#REINTO*12 sCLEAR SAVED RHDST 
3366 016710 042737 016000 003172 BIC SPUTZZINCIUIECT, @SREINTOCIG sCLEAR FMT22,HCI,ECI IR 
3367 SSAVED RHOF 
3368 016716 052737 000100 003172 BIS #VV,QGREINTOC16 3SET VV IN SAVED RHOF 
3369 016724 005037 003174 CLR @BREINTOC2O sCLEAR SAVED RHCA 
3370 
3771 *AFTER A READ IN PRESET COMMAND 
3372 S*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 
3373 
3374 016730 004037 043226 JSR RO, @#SAVER sSAVE 
3375 016734 001632 RHWC 3FROM 
3376 016736 002110 WREROM 370 
Pre 016740 000021 17. SNUMBER OF REGISTERS SAVED 
3379 3*AS UPPER BYTE OF RHAS CAM BE CHANGING IW A DUAL PORT 
3380 s*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
3381 3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 


37 
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DZRIGA.P11 29-MAR-76 00:00 T42 READ IM PRESET 

ted, 016742 113737 003201 002135 wove OFREINTO* 25, GRURFROM*25;SAVE OPPER RHAS 
3384 s*COMPARE REGISTERS BEFORE READ IW PRESET COMMAND 
— d*WITH AFTER COMMAND 

6 
3387 016750 004037 043430 JSR RO, QECOMPAR 3COMPARE 
3388 016754 003154 RELNTO 26000 BUFFER 
3389 016756 002110 URFRON JTEST BUFFER 
3390 016760 000021 17. SNUMBER OF RECISTERS 
3391 016762 016770 1$ JSRETURS FOR ERROR 
3392 016764 016770 is 3SAME 
— 016766 017010 2$ sRETURB FOR GOOD COMPARISON 

4 . 
3395 016770 013705 047320 1$3 nov @SERWORD, RS SGETTING READY TO INDEX 
3396 016774 060505 aoD RS,RS sDOUBLE ERROR WORD 
3397 016776 016537 001630 042204 mov RAWC-2( RS), @PREGADR SPAILIUG REG. ADDRESS 
3398 017004 104001 ERROR 1 PREAD IW PRESET CAUSED IMPROPER 
3399 sREGISTER CHANCE 
or 017006 000207 rts pc sRETURS FOR FURTHER COMPARISONS 
3402 017010 2$3 a8O ERRORS 


3403 





ne ee a | SS a — 


A DE C-11-DZRJG-A,RP04/5/6 DSKLS CONTROLLER TST-PT 1 WACY11 30€1046) 08-DEC-77 13:57 PACE 79 
29-MAR-76 00:00 r42 


DZRIJGA-P11 


3404 
3405 
3406 
3407 
3408 
3409 





017010 
017012 


017020 
017024 
017032 
017036 
017042 
017046 
017052 
017054 
017056 
017060 
017066 
017072 
017076 
017100 
017102 
017104 
*17106 


-17110 


017112 
017116 
017120 
017122 


017124 


017132 
017136 
017140 
017142 
017144 


000004 
012737 


004737 
012777 
013711 
012700 
012703 
012702 
013023 
005302 
001375 
013737 
010137 
052711 
104415 
000000 
000200 
104415 
000000 


000200 


004037 
001632 
002110 
000021 


113737 


004037 
001706 
002110 
000021 
017152 


000043 002032 


042534 
000001 162626 
002042 
001632 
001706 
000021 


001662 017100 
017106 
000001 


043226 


001733 002135 


043430 


READ IN PRESET 


3*TEST 43 MO OPERATION FUNCTION TEST 

ene ALL POSSIBLE REGISTERS ARE CLEARED THEN A™HOP"=0 

= IS GIVEN NO CHANGE SHOULD HAPPEN 

3** ALL POSSIBLE RECISTERS ARE FILLED wite ONES THEN A "HOP" 
— IS GIVEN HO CHANGE SHOULD HAPPER 


33 SRAESAAEARASKRARAAARARALARAAAARARAARAARARKRAAAAARERRKRARAAAAAARAAAEAAAeS 


TST43: SCOPE 
wow @TTNO,OSTSTUN  ZTHIS SAVES TEST WUMBER 


s*START WITH CLR IN RHCS2 (BITS) 

JSR PC, @8CLOISK SCLEAR ALL POSSIBLE BITS 

“ov #OMD, GRAMR dSET DIAGNOSTIC MODE 

MOV @#NOPERA, ORI sPUT NOP OPERATION=0 IN RECSi 


Mov gauuc, ao SSTARTIBG ADDRESS OF REC 
MoV euc,R3 get ADDRESS OF WHERE SAVED 
uov SRHEC2-RHWUCe2/2,R2 ;NOMBER OF REGISTERS 
1$s MOV @(RO)O,(R3)D@ SSAVE BARDWARE REC 
DEC R2 scouut 
BWE i$ sBRANCH IF HOT COMPLETE 
“ov O#RHDS1, #25 sGET ADDRESS OF DRIVE STATUS 
MOV R1,083$ JGET ADDRESS OF RECSI 
BIS #60, @R1 ⸗260 TO RACS1 
BAT SWATT FOR ORY IR RHDS1 
252 eWORD 0 J ADDRESS OF DRIVE STATUS RHDS1 
ORY sDRY WILL GE WAITED OF 
wat aWAIT FOR ROY IR RHCS1 
352 eWORD 0 SADDRESS OF RHCS1 PUT HERE BY AN 
JEARLIER MOV 
ROY sROY WILL BE WAITED OF 


s*AFTER A WO OP COMMAND 
S*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 


JSR RO, ASSAVER 3SAVE 

auwe 3FROM 

WRFROM 270 

17. uuusata OF REGISTERS SAVED 


3*AS UPPER BYTE OF RHAS CAN BE CHANGING IW A DUAL PORT 
s*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED As IS 
9*SO THAT THE COMPARES ARE OWLY VALID FOR THE LOWER BYTE 
MOVB ORAS¢1 ,OSWRFRONCZS;SSAVE UPPER RAAS 


3*COMPARE REGISTERS BEFORE WO OP COMMAND 
s*WITH AFTER COMMAND 


JSR RO, @#COMPAR sCOMPARE 

uc 26000 BUFFER 

WRFROM sTEST BUFFER 

17. SNUMBER OF REGISTERS 


4$ SRETURN FOR ERROR 


L? 
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3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 


3480 . 


3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3509 
3510 
3511 
3512 
3513 
3514 
3515 


017146 
017150 


017152 
017156 
017160 
017166 


017170 
017172 


017172 
017200 
017204 


017212 
017216 
017222 
017226 


017234 
017236 
017240 
017244 
017250 
017254 
017260 
017262 
017264 
017266 
017274 
017300 
017304 
017306 
017310 
017312 
017314 


017316 


017320 
017324 
017326 
017330 


29-MAR-76 00:00 


017152 
017172 


013705 
060505 
016537 
104001 


000207 


012737 
004737 
012777 


012700 
012705 
012730 
013777 


005305 
001371 
013711 
012700 
012703 
012702 
013023 
005302 
001375 
013737 
010137 
052711 
104415 
000000 
000200 
104415 
000000 


000200 


004037 
001632 
002110 
000021 


047320 
001630 


017200 


042534 


000001 


001632 
000021 
177676 
001774 


002042 
001632 
001706 
000021 


001662 
017314 
000001 


043226 


042204 


001110 
162446 


162402 


017306 


4$3 


1452 


7$3 


10$: 


1152 


06-DEC-77 13:57 PAGE 60 


WO OPERATION FUNCTION TEST 


4$ 

5$ 

nov OFERWORD, RS 
ADD RS,RS 


3 SAME 


sRETURS FOR GOOD COMPARISON 


SCETTING READY TO INDEX 
3DOUBLE ERROR WORD 


ov RAWC-2(RS),OSRECADR SPAILING REG. ADDRESS 


ERROR 1 
ats Pc 


MOV «8148, e8SLPERR 


JSR PC, @ECLDI SK 
nov SOND, @RANR 


980 OP COMMAND CAUSED IMPROPER 
PREGISTER CHARGE 
JRETURE FOR FURTHER CONPARISONS 


gSET SCOPE LOOP TO 14$ 
sTMIT LAST ALL ZERO TEST 
3SET DIAGHOSTIC MODE 


3*NOW START WITH ALL OWES IM ALL POSSIBLE REGISTERS 


uov #RHWC,RO 


Mov @RHEC2-RHUC*+2/2, 


Mov 8177676, @(RO)¢ 


nov @GUNIT, @RHCS2 
DEC RS 
BUE 


6$ 
MOV OPNOPERA, @R1 
nov #RHWC,RO 


MOV @(RO)O,(R3DO 
R2 


7$ 
MOV @#RADS1, OF10$ 
Mov R1,0811$ 
BIs #60, @R1 


ROY 
s*AFTER A WO OP COMMARD 


ADDRESS OF FIRST REGISTER 
210. OF REGISTERS 
2FILL WITH ALL ONES 
SREIGSTATE UNIT NUMBER UNDER TEST 
SKEEP INTERRUPT DISABLED 
3count 
sBRANCH IP INCOMPLETE 
sPUT BOP OPERATION =0 IW RHCS1 
STARTING ADDRESS OF REG 
SSTARTING ADDRESS OF WHERE SAVED 


#uC,R3 
nov @RHEC2-RHWC+2/2,R2 MUNBER OF REGISTERS 


SSAVE HARDWARE REG 

scount 

sBRANCH IPF HOT COMPLETE 

dCET ADDRESS OF DRIVE STATUS 
9CET ADDRESS OF RECSI 

360 10 RHCS1 

sWAIT FOR DRY IN RHDS1 
SADDRESS OF DRIVE STATUS RHDS1 
sORY WILL BE WAITED OF 

sUAIT FOR ROY IW RHCS1 
JADDRESS OF RHCS1 PUT HERE BY AN 
JEARLIER MOV. 

3PDY WILL BE WAITED ON 


s*SAVE REGISTERS AGAIN SO THAT COMPARES can BE DONE 


JSR RO, @BSAVER 
RHWC 

WRFROM 

17. 


sSAVE 

FROM 

270 

SUUMBER OF REGISTERS SAVED 


s*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
s*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 


yn? 





MNDEC-11-DZRJG-A,RP04/5/6 OSKLS CONTROLLER TST-PT 1 MACY11 30(1046) O06-DEC-77 13:57 PACE 61 
DZRIGA.P11 29-MAR-76 00:00 T43 NO OPERATION SUNCTION TEST 

3516 3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 

3517 017332 113737 001733 002135 wOVB QRAS*+1, @8WRFROM*255SAVE UPPER RHAS 

3518 

3519 

3520 s*COMPARE REGISTERS BEFORE NO OP COMMAND 

3521 3*WITH AFTER COMMAND 

3522 

3523 017340 004037 043430 JSR RO, @SCOMPAR 3COMP ARE 

3524 017344 001706 we 26000 BUFFER 

3525 017346 002110 WRFPROM sTEST BUFFER 

3526 017350 000021 17. sWUMBER OF REGISTERS 

3527 017352 017360 12$ sPETURN FOR ERROR 

3528 017354 017360 12$ 3SAME 

3529 017356 017400 13$ SRETURN FOR GOOD COMPARISON 

3530 

3531 017360 013705 047320 12S: MoV @FEOWORD, RS sGETTING READY TO INDEX 

3532 017364 060505 ADD RS,RS sDOUBLE ERROR WORD 

3533 017366 016537 001630 042704 MOV RAWC-2(R5),@#REGADR ;FATLING REG. ADDRESS 

3534 017374 104001 ERROR 1 380 OP COMMAND CAUSED IMPROPER 

3535 sREGISTER CRANGE 

3536 .017376 000207 RTS Pc SRETURN FOR FURTHER COMPARISONS 

3537 

3538 017400 13$: 3¥O ERRORS 





MNDE C-11-DZRJG-A, RP04/5/6 DSKLS CONTROLLER TST-PT 1 
743 


DZRJGA.P11 


3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3561 
3582 
3583 
3584 
3585 
3586 
3587 
3588 
35869 
3590 
3591 
3592 
3593 
3594 


617400 
017402 
017406 
017414 


017420 
017426 
017434 
017442 
017450 
017456 
017464 
017472 
017500 
017506 
017514 
017522 
017530 


017536 
017542 
017544 
017550 
017552 
017554 
017560 
017562 
017564 
017566 
017570 
017574 
017600 


017602 
017610 
017614 
017620 


29-MAR-76 00:00 


000004 
012706 
012737 
004737 


012777 
012777 
012777 
052777 
012777 
012777 
012777 
012777 
012777 
012777 
012777 
012777 
012777 


013700 
005012 
012705 
006000 
103002 
012714 
005212 
005305 
001401 
000770 
013746 
052716 
012612 


012777 
013711 
052711 
012700 


001000 
000044 
042534 


177777 
177777 
177777 
157010 
001476 
177777 
017437 
177777 
016277 
177777 
177777 
000001 
177777 


002020 
000010 


177777 


001774 
157010 


000001 
002050 
000001 
001630 


002032 


162202 
162176 
162172 
16 2166 
162162 
162156 
162152 
162146 
162142 
162136 
162132 
162130 
162122 


162050 


MACY11 30(1046) O8-DEC-77 13:57 PAGE 82 
HO OPERATION FUNCTION TEST 


FF TAARAARAAAAAAAARARAARAAAARAARARAAAAARAARARAARAAAAAAAAAAAAREAAAAAEAE 


s*TEST 44 


ALL WRITE BITS OF ALL REGISTERS EXCEPT RHDB ARE FILLED with 
OWES EXCEPT FOR BIT #0 AND BIT #6 WHICH ARE "GO" AND 


3** 
3ee 
3** 
328 
3*t 


TST44: 


30$: 


2152 


27$3 


"ENABLE IWTERRUPT® BITS 


DRIVE CLEAR 


THEN A ORIVE CLEAR IS PERFORMED 
THEN ALL REGISTERS EXCEPT RADE ARE CHECKED 


FP STARA 


MOV 
“ov 
JSR 


@STACK, SP 
OTTNO, OSTSTHN 
PC, Q@ECLDISK 


SRESET STACK 
STHIS SAVES TEST RWUMBER 
dSET RECISTERS AND CLEAR 


s*FILL ALL POSSIBLE BITS WITH ONES 


8177777, @RHDB 
#177777, @RuNC 
8177777, @RHBA 
#157010, @RHCS2 
81476, @RHCS1 
#177777, @RHERI 
#17437, @RHDST 
#177777, @RUER2 
#16277, @RHOF 
€177777, @RHCA 
#177777, @RHERS 
#OMND, Q@RHNR 
#177777, @RAMR 


38US ADDRESS REGISTER GETS 177777 
3WORD COUNT REGISTER GETS 177777 
3BUS ADDRESS REGISTER GETS 177777 
sCONTROL AND STATUS 2 GETS 157010 
SsCONTROL ABD STATUS REGISTER/CETS 1476 
SERROR REGISTER CETS 177777 
SDESIRED SECTOR TRACK 

SERROR REGISTER 2 

sOPPSET REGISTER 

SDESIRED CYLINDER 

SERROR RECISTER 3 

SMAINUTENANCE RECISTER 
SMAIBTERANCE REGISTER 


s*THIS SETS BITS FOR ALL PRESENT DRIVES 


MOV 
CLR 
MOV 
ROR 


@#TOTALAT,RO 
@R2 

$8.,R5 

R 


30$ 
OQ#UNIT,-(SP) 
#157010,( SP) 
(SP)¢,@R2 


#DMD, QRAMR 
@#DCLEAR, @R1 
#G0,@R1 
#RHDB, RO 


9CET ORIVE PRESENT 

sCLEAR RHCS2 AND CARRY BIT 

sCOUNTER ‘ 

sGET BIT INTO CARRY 

sBRASCH IF HO UNIT ON THIS BIT 

sMOVE INTO ERROR REGISTER TO SET ATA 
STNCREMENT RHCS2 - UNIT HO. 

scounTt 

sBRANCH IF 8 DONE 

sCONTINUE THIS ROUTINE 


sREINSTATE SET BITS 

3 

3SET DMD 

sDRIVE CLEAR = 10 INTO RHCS1 


260 
3RO CONTAINS ADDR. OF ADDR. OF REG. 
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3595 
3596 
3597 
3598 
3599 
3600 





017624 
017632 
017636 
017644 
017646 


017652 
017660 
017664 
017672 
017674 


017700 
017706 
017712 
017720 
017722 


017726 
017732 
017736 
017742 
017746 
017754 
017756 


017762 
017766 
017770 
017776 
020000 


29-MAR-76 00:00 


012737 
013037 
022737 
001402 
004737 


012737 
013037 
022737 
001402 
004737 


012737 
013037 
022737 
001402 
004737 


012746 
053716 
012637 
013037 
023737 
001402 
004737 


005737 
001404 
012737 
000403 
012737 


177777 
001126 
177777 


020504 


177777 
001126 
177777 


020504 


177776 
001126 
177776 


000110 
001774 
001124 
001126 
001124 


020504 


002000 
104210 
004210 


T44 


001124 286$: 
001126 


001124 3S: 
001126 


001124 4$: 
001126 


001126 


6$3 
001124 
001124 32$: 


— — age w 


WACY11 30(1046) O6-DEC-77 13257 PACE 83 


ORIVE CLEAR 


s*DATA BUPFER REGISTER 


MoV #177777, @#SCGODAT 3GO0D DATA FOR ERROR TYPEOUT 
“ov @C(RO)*,B8SBDDAT ZTEST DATA 
cue 9177777, @#S$80DAT 3COMPARE DATA 
BEQ 3$ sBRANCH IF COOD 
JSR PC, @BERCLFC dJOMP TO ERROR FOR CLR (BIT 5) 
3TH aAcs2 
3*WORD COUNT RECISTER 
Mov #177777 ,@8$CODAT 26000 DATA FOR ERROR TYPEOUT 
mov @CRO)*,O8SEDDAT sTEST DATA 
CMP 8177777, @#$8D0AT aCOMPARE DATA 
BEQ 4s sBRANCH IF GOOD 
JSR PC, OSERCLFC 3JUMP TO ERROR FOR CLR (BIT 5S) 
31m RACS2 
3*BUS ADDRESS REGISTER 
Mov #177776, @8$CODAT 26000 DATA FOR ERROR TYPEOUT 
MOV @CRO)*,@SSBDDAT ;TEST DATA 
CMP #177776, @8$8DDAT SCOMPARE DATA 
BEQ 58 sBRAUCH IF GOOD 
JSR PC, @RERCLFC 3JUNP TO ERROR POR CLR (BIT S$) 
stm RACS2 


s*CONTROL AND STATUS 2 RECISTER 


Mov 
BIS 
MOV 
MOV 
CMP 
BEQ 
JSR 


#110,-( SP) sTUCLUDE IR 


' @#UNIT, (SP) sSET UNIT HO. 


(SP)*,@8SCDDAT  ;COOD DATA FOR TYPE OUT 

@CRO)*,@SSBDDAT ZTEST DATA 

OESCDDAT, RESBDDATZCOMPARE DATA 

6$ sBRANCH IF GOOD 

PC, @BERCLFC 3JUMNP TO ERROR FOR CLR (BIT 5) 
31TH RACS2 


s*CGHTROL AND STATUS 1 REGISTER 


Tst 
BEQ 
Mov 
BR 

MOV 


@sNONIT SARE THERE MORE THAN ONE UNIT 
32$ sBRANCH IF ONLY OWE UNIT 

#104210, @#S$GDDAT;GOOD DATA 
3 


3 
#4210,@#S$GDDAT ;CGOOD DATA 
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DZRJIGA.P11 29-MAR-76 00:00 144 ORIVE CLEAR 
ote 020006 013037 001126 33$3 mov OCRO)*,BESBDDAT STEST DATA 
3653 020012 023737 001124 001126 cup OFSCODAT, OESBODATSCOMPARE DATA 
3654 020020 001402 BEQ 7$ sBRAUCH IF GOOD 
3655 020022 004737 020504 ISR PC, @RERCLFC dJUMP TO ERROR FOR CLR BIT 5S 
3656 31m RACS2 
3657 
3658 S*ERROR 1 REGISTER 
3659 
3660 
3661 020026 012737 000000 001124 75: nov #0,@8SGCDDAT 3CGOOD DATA FOR ERROR TYPEOUT 
3662 020034 013037 001126 Mov @CRO)e,O8SBDDAT ZsTEST DATA 
3663 020040 022737 000000 001126 CMP #0, @8SBDOAT SCOMPARE DATA 
3664 020046 001402 BEQ 10$ sBRARCH If GOOD 
3665 020050 004737 020504 JSR PC, @BERCLFC 3JUMP TO ERROR FOR CLR (BIT 5S) 
3666 31m RACS2 
3667 
3668 S*DESTRED SECTOR/TRACK REGISTER 
3669 
3670 
3671 020054 012737 017437 001124 10$§: nov 917437,@8SCODAT 3GOOD DATA FOR ERROR TYPEOUT 
3672 020062 013037 001126 Mov @CRO)+,O8SBDDAT ZTEST DATA 
3673 020066 022737 017437 001126 cmp #17437,@8S8DDAT ;COMPARE DATA 
3674 020074 001402 BEQ 11$ baasca IF GOOD 
3675 020076 004737 020504 JSR PC, @FERCLFC 3JUMP TO ERROR FOR CLR (BIT 5) 
3676 3Tm RACS2 
3677 
3678 s*ERROR 2 REGISTER 
3679 
3680 
3681 020102 012737 000000 001124 115: Mov #0,@8SGDDAT 26000 DATA FOR ERROR TYPEOUT 
3682 020110 013037 001126 “ov @(RO)*,OSSBDDAT sTEST DATA 
3683 020114 022737 000000 001126 cwP #0, @@SBD0AT sCOMPARE DATA 
3684 020122 001402 BEQ 12$ sBRANCH IF GOOD 
3685 020124 004737 020504 JSR PC, @#ERCLFC 3JUMP TO ERROR FOR CLR (BIT 5) 
3686 stm RACS2 
3687 
3688 3*OPFSET REGISTER 
3689 
3690 
3691 020130 012737 116000 001124 125: Mov #116000, @8S$GDDAT 26000 DATA FOR ERROR TYPEOUT 
3692 020136 013037 001126 uov OCRO)+,@8SBDDAT ZTEST DATA 
3693 020142 022737 116000 001126 CMP #116000, @#SBDDAT sCOMPARE DATA 
3694 020150 001402 BEQ 13$ sBRANCH IF GOOD 
3695 020152 004737 020504 JSR PC, @#ERCLFC 3JUMP TO ERROR FOR CLR (BIT 5) 
3696 31m RHCS2 
3697 
— s*DESTRED CYLINDER ADDRESS RECISTER 
3700 
3701 020156 012737 001777 001124 135: MOV #1777,@8S$CDDAT 36000 DATA FOR ERROR TYPEOUT 
3702 020164 013037 001126 MoV @(RO)*,O8SBDDAT STEST DATA 
3703 020170 022737 001777 001126 CMP #1777, @%SBDDAT s;COMPARE DATA 
3704 020176 001402 BEQ 14$ : sPRANCH IF GOOD 
3705 020200 004737 020504 JSR PC, @SERCLFC 3JUMP TO ERROR FOR CLP (BIT 5) 


3706 318 RHCS2 





RR — — — — — 
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OZRIGA.P11 


3707 
3708 
3709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 
3752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3760 
3761 
3762 


A 


EC — — 


020204 
020212 
020216 
020224 
020226 


020232 
020240 
020 246 
020252 
020260 
020262 


020266 
020274 
020300 
020306 
020310 


020314 
020322 
020324 
020330 
020334 
020340 
020342 


020346 
020354 
020360 
020366 
020370 


020374 
020402 


29-MAR-76 00:00 


012737 
013037 
022737 
001402 
004737 


013737 
043737 
013037 
123737 
001402 
004737 


012737 
013037 
022737 
001402 
004737 


012737 
013046 
011637 
042716 
022726 
001402 
004737 


013737 
013037 
023737 
001402 
004737 


013737 
013037 


000000 
001126 
000000 


020504 


002020 
002016 
001126 
001124 


020504 


000400 
001126 
000400 


020504 


000700 
001126 
001000 
000700 


020504 


002010 
001126 
002010 


020504 


002012 
001126 


001124 
001126 


001124 
001124 


001126 


001124 
001126 


001124 


001124 
0011 26 


001124 


T44 


14$3 


15S: 


16$: 


17$3 


20$: 


2152 


ORIVE CLEAR 


s*ERROR 3 REGISTER 


nov #0, 88SCDDAT 26000 DATA FOR ERROR TYPEOUT 
wov OCRO)*,BSSBDDAT STEST DATA 


CHP #0, 08S8DDAT SCOMPARE DATA 

BEQ 15$ s8RAnCe IF COOD 

JSR PC, OBERCLPFC 3J0NP TO ERROR FOR CLR (BIT 5S) 
sTm RACS2 


S*ATTENTION SUMMARY REGISTER 
nov @STOTALAT, ORSCODATSSET ALL BITS OF DRIVE PRESENT Im anas 


BIC OSATTEST, CESCODAT SCLEAR OBLY WORKING DRIVE BIT 
Mov @( RO), @#SBDDAT Get Buas 

Cups @FSCODAT, OESBDDAT sCOMPARE DATA 

BEQ 16$ sBRAnCe IF COoOD 


JSR PC, @BERCLFC 
S*MAINTAIBABILITY REGISTER 


dJUNP TO ERROR FOR CLR (BIT 5S) IB RACS2 


nov #400,88SCDDAT ;COOD DATA FOR ERROR TYPEOUT 
nov OC RO)*,OSSBDDAT ZTEST DATA 


cuP #400,08S8DDAT  ;COMPARE DATA 

BEQ 17$ sBraucn If GOOD 

JSR PC, @GERCLFC 3JUMP TO ERROR FOR CLR (BIT 5S) 
31m RACS2 


s*DORIVE STATUS RECISTER 
Mov #700,@8SCODAT 26000 DATA FOR PRINTOUT 


mov @(RO )+,-(SP) sGCET RHDS1 

MoV (SP),O8SBD0DAT = TEST DATA 

BIC #PROG, (SP) sCLEAR PROG BIT 

cup #700, (SP )e SCOMPARE DATA 

BEQ 20$ sBRANCH IF COOD 

JSR PC, OSERCLFC 3J0MP TO ERROR FOR DRIVE CLEAR 


s*DRIVE TYPE 


Mov OSSAVDT, OFSCDDAT 3GO0D DATA FOR ERROR TYPEOUT 
mov @C(RO)*, OSSBDDAT TEST DATA 
CMP OFSAVOT, OFSBDDAT SCOMPARE DATA 
BEQ 21$ sPRANCH IF GOOD 
JSR PC, @BERCLFC 3JUMP TO ERROR FOR CLR (BIT 5) 
31m RACS2 


s*SERIAL BUMBER REGISTER 


MOV @RSAVSN, @#SCDDAT 26000 DATA FOR ERROR TYPECUT 
MOV @C(RO)*,@GSBDDAT 3TEST DATA 
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3763 020406 023737 002012 001126 cue OPSAVSH, @FSBDDAT sCOMPARE DATA 
3764 020414 001402 BEQ 22$ sBRANCH IF COOD 
3765 020416 004737 020504 JSR PC, @#ERCLFC 3JUMP TO ERROR FOR CLR (BIT S) 
3766 atm RACS2 
3767 
3768 3*ECC1 POSITION 
3769 
3770 
3771 020422 012737 000000 001124 225: mov #0, @8SCDDAT sGOOD DATA FOR ERROR TYPEOUT 
3772 020430 013037 001126 nov @(RO)*, @RSBDDAT sTEST DATA 
3773 020434 022737 000000 001126 Cup #0, 08SBDDAT SCOMPARE DATA 
3774 020442 001402 BEQ 23$ s8RARCH IF COOD 
3775 020444 004737 020504 JSR PC, OBERCLFC 3JUMP TO ERROR FOR CLR (BIT 5S) 
3776 31m BNCS2 
3777 
3778 3*ECC2 PATTERN 
3779 
3780 
3781 020450 012737 000000 001124 23: nov #0, @8SCDDAT 26000 DATA FOR ERROR TYPEOUT 
3782 020456 013037 001126 Mov @CRO)*,OSSBDDAT sTEST DATA 
3783 020462 022737 000000 001126 CMP #0,08S8D0AT sCOMPARE DATA 
3784 020470 001402 BEQ 24$ sBRANCH IF GOOD 
3785 020472 004737 020504 JSR PC, @#ERCLFC 3JUNP TO ERROR FOR CLR (8IT 5) 
3786 3T@ RACS2 
3787 
3768 
— 3*LOOK-AHEAD REGISTER 
90 
3791 020476 005720 24S: Tst (RO Do 3AS THE LOOK-AHEAD REC. CANNOT BE PREDICTED 
he 217 IS WOT CHECKED AFTER AN IBIT 
coos s*CURRENT CYLINDER ADDRESS RECISTER 
3795 
3796 020500 005720 25$3 Ttst CRO)D* 3AS THE CURRENT CYL REG. CANNOT BE PREDICTED 
3797 sAPTER AN INIT IT IS NOT CHECKED 
3798 
3799 020502 26$: 
3800 020502 000413 BR TST4s sPRANCH OVER JSR ! 
3801 
3802 020504 014037 042204 ERCLFC: MOV -(RO), @RREGADR 5FAILING REGISTER ADDRESS 
3803 020510 104001 Erraor 1 dCLR FUNCTION = 10 IM RHCS1 OTD 
3804 sNOT CLEAR APPROPTATE BITS 
3805 30R CLEARED EXTRA BITS 
3806 020512 005720 Tst (RO)e sUNDO -(RO) FOR ERROR 
3807 020514 000207 RTS pc sRETURE TO ABOVE PROGRAM 
3808 30R CLEARED EXTRA BITS 
3809 020516 005720 tst (RO Deo 3UNDO -(RO) FOR BAD DATA 
3810 020520 004737 042570 JSR PC, @#CHECKT sCHECK THAT DVA,RDY,DPR, DRY = 1 
3911 020524 104401 062145 TYPE 7 CPHALT 3AND THAT HO OTHERS = 1. CANNOT CON- 
3812 STINUE TESTING IF BOTH AREN°T TRUE 
3813 020530 000000 HALT sSTOP THE TEST 
3814 
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3815 
3816 
3817 
3819 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3831 
3832 
3833 
3834 
3835 
3836 
3837 
3838 
3839 
3840 
3841 
3842 
3943 
3844 
3845 
3846 
3847 
3948 
3849 
3950 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3960 
3861 
3862 
3863 
3964 
3865 
3866 
3867 
3868 
3869 
3870 


020532 
020534 
020540 
020546 


020552 


020560 
020564 
020572 


020576 
020602 


020604 
020610 
020612 
020620 
020622 
020630 
020636 


020640 
020644 
020646 
020654 
020656 
020664 


070672 
020676 
020700 
020702 


29-MAR-76 00:00 


000004 
012706 
012737 
004737 


012777 


005077 
013777 
017746 


005737 
001416 


022726 
001404 
012737 
000403 
012737 
013777 
000415 


022726 
001404 
012737 
000403 
012737 
013777 


004037 
001632 
003154 
000023 


001000 
000045 
042534 
000001 
161060 


002072 
161100 


002036 


001456 
001456 


001455 
001210 


000632 
000632 


000631 
001210 


043226 


002032 


161100 


161046 


001210 


001210 
161014 


001210 


001210 
160760 


33 IIEVV 


s*TEST 45 SEEK COMMAND TEST 

3** THE SEER COMMAND WILL BE LOADED INTO RHCS1 WITH GO 
oo THEN ALL REGISTERS WILL BE CHECKED 

— RH CLEAR WILL BE GIVEN 

aes THEN ALL REGISTERS WILL BE CHECKED 


TSt4s: 


9$3 
10$: 


11$: 


12$: 
13S: 


14$: 


SCOPE 

“ov #STACK, SP dRESET STACK 

MOV STTHO,@8TSTHM ;THIS SAVES TEST NUMBER 

JSR PC, @BCLOISK 3INIT AND SET UP GENERAL REG. CORRES. 
3AUD UNIT HUMBER 

Mov SOMD, QRAMR dSET DIAGROSTIC MODE BIT 
sTHIS EWABLES COMMANDS WITHOUT MOL 
3AND ROLOS PHLA FROM MOVING 

CLR @RHDST SMAKE DESIRED SECTOR TRACK LEGAL 

Mov @#SEECOM,@RHCS1 3LOAD SEEK COMMABD INTO CONTROLLER 

Mov @RHCC,-(SP) sGET CURRENT CYLIBDER 


d*POLLOWING ARE TWO BLOCKS OF CODE TO LOAD RHCA WITH THE PROPER 
s*ADDRESS DEPENDING UPON WHETHER THE DRIVE IS AW RPOG OR RPO4 


tst oe sMOVE DRIVE TYPE FLAG TO ITSELF TO TEST 
BEQ 11$ STREAT THE DRIVE AS AN RPO4 

STREAT THE DRIVE AS AN RPOG 
CMP 88614.,(SP)o 31S CURRENT CYLIBDER SAME AS 014. ? 
BEQ 9$ SRRABCH IP YES TO MAKE RHCA = 813. 
Mov #814.,@8STMPS # ;GET READY TO MAKE RHCA = 614. 
BR 10$ FILL RACA 
MOV #813.,Q8S$TMPS  j;CET READY TO MAKE RHCA = 613. 
MoV @SSTMPS,@PHCA  ;MAFE DESIRED CYLINDER 614., OR 613. 
BR 14$ SSAVE REGISTERS 

sTREAT THE ORIVE AS AW RPO4 
CMP €410.,(SP)¢ 31S CURRENT CYLINDER SAME AS 410. ? 
BEQ 12$ sBRANCH IF YES TO MAKE RHCA = 409. 
MOV #410.,@8STMPS  ;GET READY TO MAKE RHCA = 410. 
BR 13$ SPILL RACA 
MOV £409.,@88STMPS aGET READY TO MAKE RHCA = 409. 
“ov GSSTMPS,@RHCA  jMAKE DESIRED CYLINDER 410., OR 409. 


3*SAVE REGISTERS FOR COMPARISON AFTER GO 


JSR RO, @BSAVEP sSAVE 

RAWC 3 FROM 

REINTO 270 

19. SRUMBER OF REGISTERS SAVED 


3*GIVE GO TO COMMAND 


G? 
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sere 020704 052777 000001 160726 BIS #60, @RHCS1 360 TO COMMAND 
3873 3*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
3874 
3875 020712 052737 000001 003162 BIS SCO,QGREINTO*6 ZSAVED PHCS1 
3876 020720 052737 020000 003204 BIS @PIP, QSRETNTO*30 ZSAVED RHDSI 
3877 020726 042737 000200 003204 BIC @DRY,2GRETNTO*30 3SAVED RADSI 
3878 
3879 
3880 s*AFTER GO HAS BEEN GIVEN FOR SEEK COMMAND 
3881 s*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 
3882 3*BE DONE 
3887 
3884 020734 004037 043226 JSR RO, @BSAVER 3SAVE 
3865 020740 001632 RHWC FROM 
3886 020742 002110 WRFROM sto 
3887 020744 000023 19. SNUMBER OF RECISTERS SAVED 
3868 
3889 3*AS UPPER BYTE OF RHAS CAN BE CHANCING IW A DUAL PORT 
3890 s*OPERATION TRE UPPER BYTE OF anas WILL BE SAVED AS IS 
3891 9*SO THAT THE COMPARES ARE OWLY VALID FOR THE LOWER BYTE 
3892 
3893 020746 113737 003201 002135 Move GRRE INTOS2S, SSURFROMSISSSAVE UPPER RHAS 
3894 
3895 S*COMPARE REGISTERS BEFORE SEEK COMMAND 
3896 s*WUITH CONTENTS AFTER GO IS ISSUED 
3897 
3898 020754 004037 043430 JSR RO, @BCOMPAR sCOMPARE 
3899 020760 003154 REINTO 26000 BUFFER 
3900 020762 002110 URFROKM sTEST BUFFER 
3901 020764 000023 19. sRUMBER 
3902 020766 020774 1$ SRETURE FOR ERROR 
3903 020770 020774 is 3 SAME 
3904 020772 021014 2s SRETURS FOR GOOD COMPARISON 
3905 
3906 020774 013705 047320 1$3 “ov @#ERWORD, PS SCETTING READY TO INDEX 
3907 021000 060505 abo RS,RS sDOUBLE ERROR WORD 
3908 021002 016537 001630 042204 MoV RHWUC-2(PS),@#RECADR sPAILING REGISTER ADDRESS 
3909 
3910 021010 104001 Error 1 dIMPROPER REGISTER CHANCE 
3911 SAFTER SEEK COMMAND 
3912 sWITH GO IS GIVEN 
ee 021012 000207 RTS Pc sRETURN TO COMPARISON 
1 
3915 
goes 3*NOW GIVE INIT AND GET GO AND PIP DOWN 
1 
3918 021014 052712 000040 2$3 BIS @CLR,@R? gRH IWITILIZE 
3919 021020 013712 001774 MOV @sUNIT, @R2 SPEINSTATE ONIT NUMPER 
3920 021024 012777 000001 160626 MOV @OMD, @RHMP 3SET DIAGROSTIC MODE BIT 
3921 STHIS ENABLES COMMANDS WITHOUT “OL 
—8* 3AND HOLDS RHLA FROM MOVING 
923 
3924 S*CHANGE REGISTERS TO EXPECTED VALUE 
3925 


3926 021032 042737 000001 003162 BIC #GO,@@REINTO*6 Z3SAVED PHCS1 
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3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3962 


021040 
021046 
021054 
021062 


021070 
021074 
021076 
021100 


021102 


021110 
021114 
021116 
021120 


021122 
021124 
021126 
021130 
021134 


021136 
021144 


021146 
021150 
021150 
021154 


021162 
021170 


021174 
021200 
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042737 
052737 
017737 
013737 


004037 
001632 
002110 
000023 


113737 


004037 
003154 
002110 
000023 


021130 
021130 
021150 
013705 
060505 


016537 
104001 


000207 


004737 
012777 


013777 
005077 


004037 
001632 


020000 
000200 
160614 
001210 


043226 


003201 


043430 


047320 
001630 


042534 
000001 


002072 
160456 


003204 
003204 
003216 
003220 


002135 


042204 


160476 


160450 


45: 


MACY11 200104600 O8-DEC-77 13:57 PAGE 69 
SEEK COMMAND TEST 


BIC SPIP, SGREINTOS30 ZSAVED RADSI 
BIS SDRY,O#RETNTO*30 ZSAVED RADS1 
MOV QRHLA, Q@PREINTO*423SAVED RALA 
MOV OESTHPS, @PREINTOS44 SAVED RUCC 


S*AFTER INITILIZE SAVE REGISTERS SO THAT 
3*COMPARES CAN PE DONE 


JSR RO, RESAVER sSAVE 

RWC 2raon 

WRFROM 3TO 

19. SWUMBER OF RECISTERS SAVED 


3*AS UPPER BYTE OF RHAS CAN BE CHANGING IW A DUAL PORT 
J*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED As IS 
3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 


novs OFREINTOC25S, OFURFROMS2ZSZSAVE UPPER RHAS 


S*COMPARE REGISTERS AFTER INITIALIZE 


JSR RO, BECOMPAR sCOMPARE 

REINTO 26000 BUFFER 

WRFROM sTEST BUFFER 

19. SNUMBER OF REGISTERS TO BE 
sCOMPARED 

3$ SRETURN POINT FOR ERROR 

3$ 3 SAME 

4s dRETURM POINT FOR GOOD COMP ARTSON 

MOV @FERWORD, RS SGETTING READY TO INDEX 

aDD RS,RS sDOUBLE ERROR WORD 

MOV RAWC-2(RS),BBREGCADR ZFAILING REGISTER ADDRESS 

ERROR 1 SIMPROPER REGISTER 
SCONTENTS APTER GIVING AN 
SIMITILIZE FOLLOWING A 
sSEEK COMMAND 

RTS ec SRETURN TO COMPARISON 
3GO0D COMPARISON 

JSR PC, @#CLDISK sINIT AWD SET UP CEWERAL REC. 
JAUD UNIT NUMBER 

MOV #DMD, @RHMR 3SET DIAGNOSTIC MODE BIT 
sTHIS ENABLES COMMANDS WITHOUT MOL 
3AND MOLDS RHLA FROM MOVING 

MOV ' @BSEECOM,ARHCS] ;LOAD SEEK COMMAND INTO RHC 

CLR @RHCA SDESIRED CYLINDER ADDRESS 

a*SAVE REGISTERS FOR COMPARISON AFTER GO 

JSR RO, @8SAVER sSAVE 

RAWC 3FROM 
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3983 021202 003154 REINTO 270 
3984 021204 000023 19. SNUMBER OF REGISTERS SAVED 
3985 
3986 s*GIVE GO TO SEEK COMMAND 
3987 021206 052777 000001 160424 BIS #60, @RHCS1 260 TO SEEK COMMAND 
3988 
— 2*chaust SAVED RECISTERS TO EXPECTED VALUES 
990 
3991 021214 052737 000001 003162 BIS SCO, @RREINTO*E ZSAVED RHCS1 
3992 021222 052737 020000 003204 BIS @PIP, RARETHTO*30 SSAVED RHDSI 
te 021230 042737 000200 003204 BIC #DRY, CBRETNTO*30 ZSAVED RADSI 
3995 
3996 s*APTER GO HAS BEEN GIVEN TO SEEK COMMAND 
3997 s*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 
3998 3*BE DONE 
3999 021236 004037 043226 JSR RO, @ESAVER 3SAVE 
4000 021242 001632 RHUC 3F RON 
4001 021244 002110 WRFROM 270 
4002 021246 000023 19. SWUMBER OF REGISTERS SAVED 
4003 
4004 
4005 3*AS UPPEP BYTE OF RHAS CAB BE CHANGING IN A DUAL PORT 
4006 d*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
4007 3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
4008 021250 113737 003201 002135 Movs OFREINTOS2S, OFURFROMC2SSSAVE UPPER RHAS 
4009 
4010 
4011 3*COMPARE REGISTERS BEFORE COMMAND 
ae s*WITH CONTENTS AFTER GO IS CIVEN 
401 
4014 021256 004037 043430 JSR RO, @SCOMPAR - sCOMPARE 
4015 021262 003154 REINTO 26000 BUFFER 
4016 021264 002110 WRFROM sTEST BUFFER 
4017 021266 000023 19. aRUMBER 
4018 021270 021276 $$ dRETURN FOR ERROR 
4019 021272 021276 S$ 3 SAME 
4020 021274 021316 6$ sRETURN FOR GOOD COMPARISON 
4021 021276 013705 047320 S$: MoV @#ERWORD, RS SGCETTING READY TO INDEX 
402? 021302 060505 400 RS,RS sDOUBLG ERROR WORD 
4023 021304 016537 001630 042204 Mov RHWC-2( RS), @@REGADR aPATLING REGISTER ADDRESS 
4024 021312 104001 ERROR 1 ZTMPROPER REGISTER CHANGE 
4025 JAPTER COMMAND 
4026 dWITH GO IS GIVEN 
4027 021314 000207 RTS pc sRETURM TO COMPARISON 
4028 
4029 3*NOW GIVE INIT AWD GET GO AND PIP DOWN 
4030 
4031 021316 052712 000040 6$: BIS #CLR, OR2 sR INITILIZE 
4032 021322 013712 001774 MOV @#UNIT, AR2 SREINSTATE UNIT NUMBER ’ ' 
4033 021326 012777 000001 160324 MOV #DMD, @RHAR 3SET DIAGHOSTIC MODE RIT “7 * 
4034 STHIS EWABLES COMMANDS WITHOUT MOL 4. ’ aA 
rere 3AND HOLDS RHLA FROM MOVING . 
4 7 
4037 S*CHANGE REGISTERS TO EXPECTED VALUF 8 
40 38 
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4039 
4040 
4041 
4042 
4043 
4044 
4045 
40 46 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 


021334 
021342 
021350 
021356 
021364 


021370 
021374 
021376 
021400 


021402 


021410 
021414 
021416 
021420 


021422 
021424 
021426 


021430 
021434 
021436 
021444 


021446 
021450 
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042737 
042737 
052737 
017737 
005037 


004037 
001632 
002110 
000023 


113737 


004037 
003154 
002110 
000023 


021430 
021430 
021450 


013705 
060505 
016537 
104001 


000207 


000001 
020000 
000200 
160312 
003220 


043226 


003201 


043430 


047320 
001630 


003162 
003204 
003204 
003216 


002135 


042204 


7$3 


8$: 





—— — 


—M — i 08-DEC-77 13357 PAGE 91 


SEEK COMMAND TES 


BIC 
BIC 
BIS 
MoV 
CUR 


#CO,@GREINTO*6 ZSAVED RHCS1 
SPIP,@SREINTOS30 SSAVED RADSI 
#ORY, QSRETHTOC30 SAVED RHDS1 
Q@RHLA, Q@@REINTOS42;3SAVED RHLA 
OFREINTOS44 sSAVED RHCC 


S*APTER IWITIALIZE SAVE REGISTERS SO THAT 
d*COMPARES CAN BE DONE 


JSR 
RHWC 
WRFROM 
19. 


RO, QESATVER dSAVE 
3 PRON 


3TO 
SUUMNBER OF REGISTERS SAVED 


3*AS UPPER BYTE OF RHAS CAN BE CHANCING IN A DUAL PORT 
J*OPERATION THE UPPER BYTE OF RAAS WILL BE SAVED AS IS 
3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 


MOVB 


OSREINTOS2S, QSURFROMC2ZS;SAVE UPPER RHAS 


d*COMPARE REGISTERS AFTER IWITALIZE 


JSR 
REINTO 


RO, @BCOMPAR 3 COMP ARE 
26000 BUFFER 
sTEST BUFFER 
SRUMBER OF PECISTERS TO BE 


a COMPARED 

SRETURN POINT FOR ERROR 

3SAME 

sRETURN POINT FOR GCOD COMPARISON 
@#ERWORD, PS SCETTING READY TO INDEX 
RS,RS sDOUBLE ERROR WORD 
RAWC-2(RS),@GRECADR ;PATILING REGISTER ADDRESS 
a 3@ CONTENTS APTER GIVING AN 

3 COMMAND 
Pc SRETURN TO COMPARTSON 


26000 COMPAPISON 
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4078 
4079 
4080 33 RAKRSARARAKARAARHKAHAKAAARARARAARAAARARARAARARAKeRARAReReeeeARAAeR 
pees s*TEST 46 UNLOAD COMMAND TEST 
40 
4083 abel TPE UNLOAD COMMAND WILL BE LOADED INTO RHCS1 WITH CO 
4084 see THEW ALL REGISTERS WILL BE CHECKED 
4085 see RA CLEAR WILL BE GIVEN 
4086 
4087 PP TTAARAAAKeAKaAAAAAAAeaeeaaahananeaeasageageenaaganeaaseeaneaaneser 
:088 021450 000004 TST462 SCOPE 
4089 021452 012706 001000 mov @STACK,SP. sRESET STACK 
4090 021456 012737 000046 002032 mov @TTNO,QSTSTUN  j;THIS SAVES TEST RUMBER 
4091 021464 004737 042534 JSR PC, RSCLDISK BINIT AWD SET UP CEWERAL REG. 
4092 dAND UNIT NUMBER 
4093 021470 012777 000001 160162 mov SOND, @RAMR dSET DIAGNOSTIC MODE BIT 
4094 STHTS EWABLES COMMANDS WITHOUT MOL 
4095 3AND HOLDS RHLA FROM HOVING 
4096 
4097 021476 013777 002044 160134 Mov @#UNLOAD,@RACS1 ZLOAD UNLOAD COMMAND INTO RA 
4098 
a s*SAVE REGISTERS FOR COMPARISON AFTER GO 
4101 021504 004037 043226 JSR RO, AESAVER sSAVE 
4102 021510 001632 RAWC 3FRON 
4103 021512 003154 REINTO 370 
4104 021514 000023 19. SWUMBER OF REGISTERS SAVED 
4105 
4106 s*GIVE CO TO UNLOAD COMMAND 
22* 021516 052777 000001 160114 BIS @CO, @RHCS1 3GO TO UNLOAD COMMAND 
4109 s*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
4110 021524 052737 000001 003162 BIS @CO,@PREINTO*6 ZSAVED RUCS1 
4111 021532 052737 020000 003204 BIS #PIP,@@RETNTOS30 ZSAVED RADS1 
4112 021540 042737 000200 003204 BIC GORY, QGRETNTOS30 SAVED RADS1 
4113 
4114 021546 005737 001100 TST @#SPASS 31S THIS FIRST PASS 
4115 021552 001053 BNE 5$ sBRAUCH IF WOT FIRST PASS 
4116 021554 032777 020000 157356 BIT #SW13,e@SuR dIUAIBIT ERROR PRINT HIGH? 
+4 021562 001047 BNE S$ PBRANCH IF Swi3 HIGH 
411 
4119 021564 104401 021572 TYPE ,65$ 33TYPE ASCIZ STRING 
4120 021570 000441 BR =. 64$ 33GET OVER THE ASCIZ 
4121 3965$t .ASCIZ ¢15>¢129/1F DRIVE CONNECTED “STAND BY" LAMP SHOULD BE LIT OW DRIVE HO / 
4122 021674 645: 
4123 
4124 021674 013746 001774 mov @RUNIT,-(SP) j;UNIT UNDER TEST 
4125 021700 104405 TYPDS 
4126 
4127 s*APTER GO HAS BEEN GIVEN TO UNLOAD COMMAND 
4128 S*SAVED REGISTERS AGAIW SO THAT COMPARISONS CAN 
4129 d*BE DONE 
4130 
4131 021702 004037 043226 55: JSR RO, @HSAVER sSAVE 
4132 021706 001632 RAWC sFROM 15 


4133 021710 002110 WRFROM 270 
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413 

4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
‘4146 
4147 
4148 
4149 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4158 
4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
41861 
4182 
41863 
4184 
4185 
4186 
4167 
4188 
4189 


021714 


021722 
021726 
021730 
021732 
021734 
021736 
021740 
021742 
021746 
021750 


021756 


021760 


021762 
021766 
021772 


022000 
022006 
022014 
022022 


022030 
022034 
022036 
022040 


022042 


022050 


ee — — — 
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aa 021712 000023 


113737 


004037 
003154 
002110 
000023 
021742 
021742 
021762 
013705 
060505 
016537 


104001 


000207 


052712 
013712 
012777 


042737 
042737 
052737 
017737 


004037 
001632 
002110 
000023 


113737 


004037 


003201 


043430 


047320 
001630 


000040 
001774 
000001 


000001 
020000 
000200 
157646 


043226 


003201 


043430 


002135 


042204 


157660 


003162 
003204 
003204 
003216 


002135 





1$3 


2$3 
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30(1046) O08-DEC-77 13357 PAGE 93 
UNLOAD COMMAND TEST 


19. SWUMBER OF REGISTERS SAVED 


3*AS UPPER BYTE OF RHAS CAN BE CHANCING IW A DUAL PORT 
S*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
wove GBREINTOe 25, PFURFROMCISSSAVE UPPER RHAS 


s*COMPARE REGISTERS BEFORE USLOAD COMMAND 
a*WITH AFTER CO 


JSR RO, @ECOMPAR s COMPARE 

REINTO 26000 BUFFER 

WRFROM sTEst BUFFER 

19. SNUMBER 

i$ SRETURE FOR ERROR 

is 3SAME 

2s SRETURE FOR GOOD COMPARISON 
MOV @#ERWORD, RS gCETTING READY TO IRDEX 

aDdD RS,RS sDOUBLE ERROR WORD 

MoV RAWVC-2(RS),OSREGADR JPAILING REGISTER ADDRESS 
ERROR i STMPROPER REGISTER CHANGE 


3APTER ONLOAD COMMAND 
* gUITe CO IS GIVEN 


RTS Pc sRETURS TO COMPARISON 
3*uOW GIVE INIT AND GET ALL GO AND PIP DOWN 

BIS #CLR,@R2 sRH INITILIZE 

MOV OGUNIT, @R2 SREIMSTATE UNIT WONBER 
Mov #OMD, @RAMR sSET DIAGHOSTIC MODE BIT 


STHIS ENABLES COMMANDS WITHOUT MOL 
SAND HOLDS RULA FROM MOVING 


S*CHANGE REGISTERS TO EXPECTED VALUE 
BIC SCO,@8REINTO*6 ZSAVED RECS1 


BIC SPIP, @SRETUTO*30 ZSAVED RHDS1 
BIS @DRY,AERETNTOS30 ZSAVED REDS) 
Mov QRHLA, @FREINTO*42;SAVED RALA 


S*AFTER INITIALIZE SAVE REGISTERS SO THAT 
3*COMPARES CAW BE DONE 


JSR RO, BASAVER SAVE 

RaWC FROM 

wRFROM 270 

19. ; SUUMBER OF REGISTERS SAVED 


d*COMPARE REGISTERS AFTER INITIALIZE 

3*AS UPPER BYTE OF RHAS CAN BE CHANGING IW A DUAL PORT 
s*OPERATION TRE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB OGREINTOC2S, QRURFROMS2S;SAVE UPPER RHAS 


JSR RO, @ECOMPAR sCOMPARE 
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4190 
4191 
419? 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 


022054 
022056 
022060 


022062 
022064 
022066 


022070 
022074 
022076 
022104 


022106 
022110 


29-MAR-76 00:00 


003154 
002110 
000023 


022070 
022070 
022110 


013705 
060505 
016537 
104001 


000207 


047320 
001630 042704 


352 


4$: 


MACY11 30(1046) O08-DEC-77 13:57 PACE 94 
UNLOAD COMMAND TEST 


@#ERWORD, RS 
RS,RS 


26000 BUFFER 

sTEST BUFFER 

SFUMBER OF REGISTERS TO BE 

3 COMPARED 

sPETURN POINT FOR ERROR 

3SAME 

sPETURN POIST FOR GOOD COMPARTSOR 


sCETTING READY TO INDEX 
ZDOUBLE ERROR WORD 


RHWC-7(RS),@#RECADR SFATLING REGISTER ADDRESS 
1 


sIMPROPER REGISTER 
sCONTENTS AFTER GIVING AN 
ZUNLOAD COMMAND 

SRETURN TO COMPARTSON 
26000 COMPAPISOR 
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DZRJGA.P11 29-MAR-76 00:00 746 UNLOAD COMMAND TEST 
4207 
4208 022110 032777 000020 157022 BIT #SW4,@SUR sTEST FOR UO OFFSET OR RTC 
4209 022116 001402 BEQ 6$ sIFf = 0, DO THE NEXT TWO TESTS 
4210 022120 000137 023076 Jue 18151 SSKIP THE NEXT TWO TESTS -<<<<--<--------) 
4211 022124 6$3 sCONTINUE WITH WEXT TWO TESTS 
4212 
42t4 
4215 gp ee Meneaaearerernarenarrenerensenanererensenseenenenneeneseneene 
4216 s*TEST 47 OFFSET COMMAND TEST 
4217 
4218 — THE OFFSET COMMAND WILL BE LOADED INTO RHCS1 WITH CO 
4219 dome THEN ALL REGISTERS WILL BE CHECKED 
4220 ine RA CLEAR WILL BE GIVEN 
4221 ~ THEN ALL REGISTERS WILL BE CHECKED 
ence XXXXXRERRRR 
4224 022124 000004 TST47: SCOPE 
4225 022126 012706 091000 “OV #STACK,SP SRESET STACK 
4226 022132 012737 000047 002032 MOV STTNO,@STSTHM ;THIS SAVES TEST HUMBER 
4227 022140 004737 042534 JSR PC, @#CLDISK sINIT AND SET UP GENERAL REC. 
4228 SAND UNIT BHUNBER 
4229 022144 012777 000001 157506 MOV #OND, GRHMP 3SET DIAGHOSTIC MODE BIT 
4230 sTHIS EWABLES COMMANDS WITHOUT MOL 
pete 3 AND FOLDS RHLA FROM MOVING 
4232 s*GIVE OWE INDEX PULSE TO CLEAR RALA BEFORE THE START OF THIS TEST 
4234 022152 052777 000004 157500 BIS OMINX, @RHMR 3SET INDEX PULSE 
4235 022160 042777 000004 157472 BIC @MINX, @RHMR sCLEAR INDEX 
4236 
4237 3*TO ENABLE LOOP ON THIS TEST THE POSTTIOWER HAS TO 
4238 3*BE BROUGHT TO CENTER LINE 
4239 
4240 022166 017777 157504 157456 MOV @RHCC, @RACA sSET DESIRED CYLINDER TO RHCC 
4241 022174 013711 002072 MOV @#SEECOM, OR1 dSEEK COMMAND TO RHCS1 
4242 022200 005211 Inc @R1 260 TO SEEK COMMAND 
4243 
4244 3*FOUR SECTOR CLOCKS ARE CIVEN TO TAKE POSITIONER OFF OFFSET POSITION 
4245 022202 012700 000004 MOV #4,R0 sCOUNTER 
4246 022206 012777 000011 157444 5$: MOV @MSTCKIDMD, @RHMR sSET SECTOR CLOCK 
4247 022214 012777 000001 157436 MOV #0MD, Q@RHMR sRESET SECTOR CLOCK 
4248 022222 005300 DEC RO 3CoUNT 
os 022224 001370 BWE 5$ sBRANCH IF WOT COMPLETE 
4251 022226 004737 042534 JSR PC, @SCLDISK sISTT AND SET UP CEWERAL REC. 
4252 34ND UNIT BUMBER 
4253 022232 012777 000001 157420 MOV #OND, QRHMR 3SET DIAGNOSTIC MODE RIT 
4254 dTHIS ENABLES COMMANDS WITHOUT NOL 
4255 ZAND HOLDS RHLA FROM MOVING 
4256 
4257 022240 013777 002074 157372 MOV QSOFSETC,@RACSi ;LOAD AN OFFSET BIT 
4258 022246 012777 000001 157374 MOV #OF 25, @° HOF 3SET AM OFFSET BIT 
4259 
4260 d*SAVE REGISTERS FOR COMPARTSON AFTER CO 
4261 022254 004037 043226 JSR RO, QESAVER 3SAVE 
4262 022260 001632 RWC 3 FROM 





ef 

















MNDEC-11-DZRJG-A,RP04/5/6 DSKLS CONTROLLER TST-PT 1 MACY11 30(1046) 08-DEC-77 13357 PAGE 96 


DZRIGA.P11 29-MAR-76 00:00 T47 OFFSET COMMAND TEST | q 
4263 022262 003154 REINTO 370 
4264 022264 000023 19. #NOMBER OF REGISTERS SAVED q 
4265 
4266 3*GIVE GO TO OFFSET CONMAND 
4267 022266 052777 000001 157344 BIS #CO, @RACS1 3C6O TO OFFSET COMMAND q 
4268 
4269 s*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
4270 022274 052737 000001 003162 BIs @CO,@FREINTO*6 SAVED RACS1 < 
4271 022302 052737 020000 003204 BIs PIP, @SREINTO*30 3SAVED RADS1 
4272 022310 042737 .000200 003204 BIC @ORY,QSREINTOC3O ZSAVED RADS1 P 
4274 d*APTER GO HAS BEEN GIVEN TO OFFSET COMMAND 
4275 P*SAVE REGISTERS AGAIN SO THAT COMPARTSONS CAN 
4276 3*BE DONE q 
4277 
4278 022316 004037 043226 JSR RO, @BSAVER 2SAVE 
4279 022322 001632 RAWC 3PROM q 
4280 022324 002110 WRERON 3T0 
e201 022326 000023 19. PRUMBER OF REGISTERS SAVED ‘ 
4283 3*AS UPPER BYTE OF RHAS CAB BE CHABCING IW A DUAL PORT 
4284 Z*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
4285 3*SO THAT TRE COMPARES ARE ONLY VALID FOR TRE LOWER BYTE q 
4206 022330 113737 003201 002135 nove OSRELNTO* 25, OSURFROMS253SAVE UPPER REAS 
4288 ' q 
4289 S*COMPARE REGISTERS BEFORE OFFSET COMMAND 
4290 ?*WITH AFTER CO 
4291 | 
4292 022336 004037 043430 JSR RO, @SCOMP AR 3COMPARE 
4293 022342 003154 REINTO 3COOD BUFFER 
4294 0222744 002110 wRFROY sTEST BUFFER J 
4295 022346 000023 19. NUMBER 
4296 022350 022356 1s RETURN FOR ERROR 
4297 022352 022356 1$ 3SAME J 
4298 022354 022376 2$ RETURN FOR GOOD COMPARISON 
4 
4300 022356 013705 047320 1$: MoV @#ERWORD, RS sCETTING READY TO INDEX 4 
4301 022362 060505 ADD RS,RS DOUBLE ERROR WORD 
4302 022364 016537 001630 042204 KO RHWC-2(RS),@GREGADR ;FAILING REGISTER ADDRESS 
4303 022372 104001 ERROR 1 sIMPROPER REGISTER CHANCE V 
4304 ZAPTER OFFSET CONMAND 
4305 WITH GO IS GIVES 
4306 022374 000207 RTS PC RETURN TO COMPARTSON J 
4307 
4308 3*NOW GIVE INIT AND GET ALL GO AND PIP DOWN ‘ 
4310 022376 052712 000040 2$: BIS #CLR,@R? gRH INITILIZE 
4311 022402 013712 001774 MOV @RUNIT, @R2 ZREINSTATE UNIT BOMBER 
4312 022406 012777 000001 157244 “Ov DMD, @RHMR 3SET DIAGNOSTIC MODE BIT ( 
4313 THIS EWABLES COMMANDS WITHOUT MOL 
4314 aud HOLDS RHLA FROM MOVING ‘ 

1 

4316 *CHANGE REGISTERS TO EXPECTED VALUE c@ 
4317 022414 042737 000001 003162 BIC SCO,@GREINTO+G  ZSAVED RHCS1 
4318 022422 042737 000001 003172 BIC #OF 25, @@REINTOCI63SAVED RAOF ( 
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4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
4326 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4350 
4351 
4352 
4353 
4354 
4355 





022430 
022436 
022444 


022452 
022456 
022460 
022462 


022464 


022472 
022476 
022500 
022502 


022504 
022506 
022510 


022512 
022516 


022520 
022526 


022530 
022532 


042737 
052737 
017737 


004037 
001632 
002110 
000023 


113737 


004037 
003154 
002110 
000023 


022512 
022512 
022532 


013705 
060505 
016537 
104001 


000207 


020000 
000200 
157224 


043226 


003201 


043430 


047320 
001630 


003204 
003204 
003216 


002135 


042204 


3$3 


OFFSET COMMAND TEST 


BIC #PIP, OSRETNTOS30 SAVED RADS1 
BIS @ORY,BSREINTOS30 SSAVED RADSI 
MOV @RULA, QERETYTOS42;SAVED RALA 


S*APTER INITIALIZE SAVE REGISTERS SO THAT 
d*COMPARES can BE DORE 


JSR RO, BESAVER sSAVE 

Rawc 3FROM 

WRFROM 270 

19. SWUMBER OF REGISTERS SAVED 


3*AS UPPER BYTE OF RHAS CAN BE CHANCING IW A DUAL PORT 
S*OPERATION THE UPPER BYTE OF RBAS WILL BE SAVED As IS 
3*SO THAT THE COMPARES ARE OBLY VALID FOR THE LOWER BYTE 
novs @FREINTOS2S, QEURFRONS2S SAVE UPPER RHAS 


S*COMPARE REGISTERS AFTER INITIALIZE 
JSR RO, @BCOMP AR sCOMPARE 


REINTO 26000 BUFFER 
WRFROM sTEST BUFFER 
19. SWUMBER OF RECISTERS TO BE 
3 COMPARED 
3$ SRETORE POINT FOR ERROR 
3$ aSAME 
4s sRETURS POINT FOR GOOD COMPARTSON 
“ov @#ERWORD, RS sCETTING READY TO INDEX 
ADD RS,RS 3DOUBLE ERROR wORD 
MoV RAWC-2(RS),@GRECADR Z;PAILINC RECISTER ADDRESS 
ErroR 1 sTMPROPER REGISTER 


SCONTESTS AFTER GIVING As 
STMITIALIZE FOLLOWING A 
sOFFSET COMMAND 

RTS Pc sRETURE TO COMPARTSON 


3GOO0D COMPARISON 


bd 
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DZRJGA.P11 29-MAR-76 00:00 T47 OFFSET COMMAND TEST | 
4356 
4357 q 
43598 FP SAAAAAAAAAAAAAAAAAREAAA AAA AAAAALAROAARAARARAAAAAAAARERAAAAAAAARS 
4359 s*TEST SO RETURN TO CENTER LINE COMMAND TEST ‘ 
4360 
4361 pee TRE RETURN TO CENTER LIWE COMMAND WILL BE LOADED taro RHCS1 WITH CO 
436? 3*e THEN ALL REGISTERS WILL BE CHECKED 
4363 see RH CLEAR WILL BE CIVER < 
4364 38 THEW ALL RECISTERS WILL BE CHECKED 
pa 33 SAAAAAAHARSARAAAAAAAEAAAAAAAAAAAAAAAAARAAAAAAAAAARERERASAAAREERA q 
4367 022532 000004 TSTSO: SCOPE 
4368 022534 012706 001000 MOV @STACK, SP gRESET STACK 
4369 022540 012737 000050 002032 MOV @TTHO,QPTSTHM  j;THIS SAVES TEST NUMBER < 
4370 022546 004737 042534 JSR PC, O@ECLDISK INIT AWD SET UP CENERAL REC. 
4371 3AED UNIT BUNBER 
4372 022552 012777 000001 157100 nov adud, @RANR #SET DIAGNOSTIC MODE BIT <q 
4372 gTHIS EWABLES CONWANDS WITHOUT OL ; 
4374 3AND HOLDS RHLA FROW MOVING P 
4375 
4376 d*GIVE ONE INDEX PULSE TO CLEAR RALA BEFORE THE START OF THIS TEST 
4377 022560 052777 000004 157072 BIS @NIBX, @RHWR #SET INDEX PULSE 
4378 022566 042777 000004 157064 BIC @MINK, ORUMR 3CLEAR INDEX | 
4379 
4380 
4381 022574 013777 002076 157036 mov @PRETCL, @RHCS1 LOAD RETURN TO CENTER LIWE COMMAND IBTO RHCS1 « 
4382 
4383 3*SAVE REGISTERS FOR COMPARISON AFTER CO 
4384 022602 004037 043226 JSR RO, @SSAVER sSAVE q 
4385 022606 001632 RHWC >FROM 
4386 022610 003154 REINTO 370 
4387 022612 000023 19. 3RUMBER OF REGISTERS SAVED q 
4388 
4289 3*CIVE CO TO RETURN TO CENTER LIBE COMMAND 
4390 022614 052777 000001 157016 BIS #C0, @RHCS1 360 TO RETURB TO CENTER COMMAND q 
4391 
4392 
4393 3*FOUR SECTOR CLOCKS ARE GIVEN TO TAKE POSITIONER TO CENTER LINE q 
4394 022622 012700 000004 MoV #4,R0 sCOUNTER 
4395 022626 012777 000011 157024 5S: MOV @MSTCKIDMD,@RHMR3SET SECTOR CLOCK 
4396 022634 012777 000001 157016 MOV aDMD, @RHMR RESET SECTOR CLOCK q 
4397 022642 005300 DEC RO sCOURNT 
4398 022644 001370 BNE 5$ ;PRANCH IF NOT COMPLETE < 
4400 
4401 d*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
4402 022646 052737 000001 003162 BIS SCO,QEREINTOCG  3SAVED RHCS1 q 
4403 022654 052737 020000 003204 BIS #PIP,@@REINTO*30 ;SAVED RADSI 
4404 022662 042737 000200 003204 BIC #DRY,REREINTO*30 SSAVED RHOS1 ‘ 
4406 , s*APTER GO HAS BEEN GIVEN TO RETURN TO CENTER LINE COMMAND 
4407 #*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN < 
4408 3*BE DORE 
4409 022670 004037 043226 JSR RO, @#SAVER sSAVE 51 


4410 022674 001632 RHWC 3PRON < 
4411 022676 002110 WwRFROM 270 
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DZRIGA.P11  29-MAR-76 00:00 50 RETURN TO CENTER LINE COMWAND TEST q 
4412 022700 000023 19. SWUMBER OF REGISTERS SAVED ‘ 
4413 
4414 3*AS UPPER BYTE OF RHAS CAN BE CHABGING IN A DUAL PORT 
4415 3*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
4416 3*SO THAT THE COMPARES ARE OWLY WALID FOR THE LOWER BYTE <q 
4417 022702 113737 003201 002135 MOVE © @PREINTO+25, ORURFROM2S;SAVE UPPER RHAS 
441 
4419 
4420 2*COMPARE REGISTERS BEFORE RETURN TO CENTER LIWE COMMAND 
4421 3*WITH AFTER GO 
4422 022710 004037 043430 ose RO, @ECOMPAR sCOMPARE 
4423 022714 003154 REINTO »COOD BUFFER 
4424 022716 002110 WRFROM 3TEST BUFFER 
4425 022720 000023 19. — NUMBER 
4426 022722 022730 is sRETURE FOR ERROR 
4427 022724 022730 is 33aut 
4428 022726 022750 2$ 3RETURE FOR GOOD COWPARTSON q 
4429 
4430 022730 013705 047320 1$: mov @PERWORD, RS SCETTING READY TO INDEX 
4431 022734 060505 ADD RS,RS ;DOUBLE ERROR wORD < 
4432 022736 016537 001630 042204 mov RHUC-2(RS),QGREGADR ;PAILING REGISTER ADORESS 
4433 022744 104001 erRRoR 1 ZIMPROPER REGISTER CHANGE 
4434 JAPTER RETURN TO CENTER LIBRE COMMAND q 
4435 s¥ITH GO TS GIVES 
4436 022746 000207 RTS Pc sRETURB TO CORPARTSON ‘ 
4438 3°80 GIVE INIT AND GET ALL CO AND PIP DOWN 
4439 
4440 022750 052712 000040 2$: BIs @cLR, eR2 gRH INETILIZE q 
4441 022754 013712 001774 Mov @#UNIT, OR2 SREINSTATE UNIT HUNBER 
4442 022760 012777 000001 156672 mov gOND, @RHHR dSET DIAGNOSTIC MODE BIT 
4442 PTHIS ERABLES COMMANDS WITHOUT “OL < 
4444 }AWD MOLDS RHLA PROM MOVING 
4445 
4446 s*CHANGE REGISTERS TO EXPECTED VALUE < 
4447 022766 042737 000001 003162 - BIc #CO,Q@REINTOCG ;SAVED RHCS1 | 
4448 022774 042737 020000 003204 BIC GPIP,CGRETNTO¢30 SAVED RADS1 | 
4449 023002 052737 000200 003204 BIS #ORY, @BRELNTOS30 ZSAVED REDS q 
4450 023010 017737 156660 003216 mov @RHLA, @PREINTOC42;SAVED RHLA | 
4451 
4452 Z*AFTER INITIALIZE SAVE REGISTERS SO THAT q 
4453 3*COMPARES CAW BE DONE | 
4454 023016 004037 043226 JSR RO, OSSAVER sSAVE | 
4455 023022 001632 RHWC 3PROM q 
4456 023024 002110 WwRFROM 370 
4457 023026 000023 19. sNUMBER OF REGISTERS SAVED p 
45 
4459 3*AS UPPER BYTE OF RHAS CAN BE CHANGING IW A DUAL PORT 
4460 Z*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
4461 3*SO THAT THE COMPARES ARE OWLY VALID FOR THE LOWER BYTE < 
4462 023030 113737 003201 002135 MOVE @@REINTO+2S, @#URFRONC25;SAVE UPPER RHAS 
4463 | 
4464 q 
4465 s*COMPARE REGISTERS AFTER INITIALIZE fq | 
4466 023036 004037 043430 JSR RO, @SCOMPAR — COMPARE 
4467 023042 003154 REINTO 3G00D BUFFE® 
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DZRJGA.P11 29-MAR-76 00:00 150 RETURN TO CENTER LINE COMWAND TEST 
4468 023044 002110 wRrRow dTEST BUFFER 
4469 023046 000023 19. pWOMBER OF REGISTERS TO BE q 
4470 3COMPARED 
4471 023050 023056 3$ SRETURS POINT FOR ERROR 
4472 023052 023056 3$ 3SAME q 
4473 023054 023076 4s 3RETURN POINT FOR GOOD COMPARISON 
4474 
4475 q 
4476 023056 013705 047320 3$3 nov @FERWORD, RS PCETTING READY TO INDEX 
4477 023062 060505 ADD RS, RS ;DOUBLE ERROR WORD 
4478 023064 016537 001630 042204 mov RAWC-2(RS),REPEGADR JPAILING REGISTER ADDRESS q 
4479 023072 104001 = ERROR 1 ZIMPROPER REGISTER 
4480 | SCONTESTS AFTER GIVING AN 
4481 ZIBITIALIZE FOLLOWING A RETURN TO q 
4482 sCENTER LINE COMMAND | 
4483 023074 000207 RTs Pc sRETURN TO COMPARISON P 
4484 
4485 023076 4$: 3CO00D COMPARISON 
4486 
q 
q 
< 
| 
« 
< 
q 
q 
| 
q 
4 
q 
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4487 
4488 
4489 33 SAARAASASARAARAARAARARAAHSARHARAHSARAAHHAHRAAARHSAARARAREAAAAEATERARAAAEENE 
4490 s*TEST 51 RECALIBRATE COMMAND TEST 
491 
4492 see TRE RECALIBRATE COMMAND WILL 8£ LOADED INTO RHCS1 WITR Co 
4493 pee THEN ALL REGISTERS WILL BE CHECKED 
4494 328 QH CLEAR WILL BE CIVER 
4495 pee THEN ALL REGISTERS WILL BE CHECKED 
4496 
4497 Pp tMeeecenareaaneenacaneaggavaeneererareenerenenaangesrannnnnsenes 
4498 023076 000004 TSTSi: SCOPE 
4499 023100 012706 001000 MOV @STACK, SP gRESET STACK 
4500 023104 012737 000051 002032 wov STTNO,OSTSTRN  JZTHIS SAVES TEST NUMBER 
4501 023112 004737 042534 JSR PC, OSCLOI SK 3TUIT AND SET OP CEWERAL REG. 
4502 30ND ONTT BUNBER 
4503 023116 012777 000001 156534 nov adud, @RANR dSET DIAGHOSTIC MODE BIT 
4504 STHIS EMABLES COMMANDS WITHOUT NOL 
4505 3AND HOLDS RHLA FROWN MOVING 
4506 
4507 
4508 P*GIVE ONE IHDEX PULSE TO CLEAR RALA BEFORE THE START OF THIS TEST 
0 
4510 023124 052777 000004 156526 BIs gM INX, @RAYR sSET INDEX PULSE 
4511 023132 042777 000004 156520 Bic @MINX, QRHNR 3CLEAR THDEX 
4513 023140 013777 002046 156472 nov @PRECALI,@RHCS1 ;LOAD RECALIBRATE COMMAND INTO RHCS} 
4514 
4515 s*SAVE REGISTERS FOR COMPARTSON AFTER CO 
4516 023146 004037 043226 JSR RO, @RSAVER sSAVE 
4517 023152 001632 RHWC 3 PROM 
4518 023154 003154 REINTO 3T0 q 
4519 023156 000023 19. pWUMBER OF REGISTERS SAVED 
45 
4521 2*CIVE GO TO RECALIBRATE COMMAND 
4522 023160 052777 000001 156452 BIS #60, @RHCS1 360 TO RECALIGRATE COMMAND 
4523 * 
4524 ‘ 
4525 3*FOUR SECTOR CLOCKS ARE GIVEN TO TAKE POSITIONER TO CYLINDER 0 
4526 023166 012700 000004 MOV #4,R0 sCOUNTER 
4527 023172 012777 000011 156460 S$: MoV @MSTCKIDMD,@RHMRZSET SECTOR CLOCK 
4528 023200 012777 000001 156452 mov @DMD, QRHMR gRESET SECTOR CLOCK 
4529 023206 005300 DEC RO 3COUNT 
4530 023210 001370 BNE S$ 3BRANCH IF BOT COMPLETE 
4531 
4532 
4533 3*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
4534 023212 052737 000001 003162 BIS #CO,@#REINTO*G ZSAVED RHCS1 
4535 023220 052737 020000 003204 BIS SPIP,@SREIHTO+30 >SAVED RHDS1 
4536 023226 042737 000200 003204 BIC #ORY,AGREINTO*30 ;SAVED RHDS) 
4537 
4538 P*APTER GO HAS REEN GIVEN TO RECALIBRATE COMMAND 
4539 Z*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN a 
4540 3*BE DONE 
4541 023234 004037 043226 JSR RO, @ESAVER 7SAVE 
4542 023240 001632 Rac >FROM 








MNDEC-11-DZRJG-A, RPO04/5/6 DSKLS CONTROLLER TST-PT 1 MACY1I1 aan one 06-DEC-77 13:57 PAGE 102 
29-MAR-76 00:00 Ts. 


OZRIGA.P11 


4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
4551 
4552 
4553 
4554 
4555 
4556 
4557 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
4581 
4582 
4583 
4584 
4565 
4586 
4587 
4568 
4589 
4590 
4591 
4592 
4593 
4594 
4595 
4596 
4597 
4598 


023242 
023244 


023246 


023254 
023260 
023262 
023264 
023266 
023270 
023272 


023274 
023300 
023302 
023310 


023312 


023314 
023320 
023324 


023332 
023340 
023346 
023354 


023362 
023366 
023370 
023372 


023374 


023402 


113737 


004037 
003154 
002110 
000023 
023274 
023274 
023314 


013705 
060505 
016537 
104001 


000207 


052712 
013712 
012777 


042737 
042737 
052737 
017737 


004037 
001632 
002110 
000023 


113737 


004037 


003201 


043430 


047320 
001630 


000040 
001774 
000001 


000001 
020000 
000200 
156314 


043226 


003201 


043430 


002135 


042204 


156326 


003162 
003204 
003204 
003216 


002135 


1$3 


2$3 


RECALIBRATE COMMARD TEST 


WRFROM 270 
19. SUUMBER OF REGISTERS SAVED 


3*AS UPPER BYTE OF RHAS CAN BE CHANGING IW A DUAL PORT 
s*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB OFREINTOS25, QFURFROMC2ZSISAVE UPPER REAS 


S*COMPARE REGISTERS BEFORE RECALIBRATE COMMAND 
3*MITH AFTER GO 


JSR RO, OECOMPAR ICOMPARE 

REINTO 26000 BUFFER 

WRFROM sTEST BUFFER 

19. SNUMBER 

1$ sRETURM FOR ERROR 

1$ 3 SAME 

2$ sRETURS FOR GOOD COMP ARISOR 
Mov @#ERWORD,RS sCETTING READY TO INDEX 

adD RS,RS ;DOUBLE ERROR WORD 

Mov RHUC-2(RS),@SRECADR ;FAILING REGISTER ADORESS 
ERROR 1 SIMPROPER REGISTER CHANCE 


SAFTER RECALIBRATE COMMAND 
aVITH GO IS GIVEN 
ats Pc sRETURE TO COMPARISON 


3*HOW GIVE INIT AND GET ALL CO AND PIP DOWN 


818 #CLR, @R2 sR INITILIZE 

nov @sUNIT, AR2 SREIUSTATE OBIT HUMBER 

MoV SDD, BRAMR 3SET DIAGHOSTIC NODE BIT 
sTHIS EWABLES COMMANDS WITHOUT MOL 
3AND MOLDS RHLA FROM MOVING 


S*CHANGE REGISTERS TO EXPECTED VALUE 


BIC #CO,@SREINTO*6 ZSAVED RHCS1 
BIC SPIP,@BREINTO*30 ZSAVED R4DS1 
Is #ORY,QBRETUTO*30 SAVED RHDS1 
MoV @RHLA, Q@@REINTOS423SAVED RHLA 


S*AFTER INITIALIZE SAVE REGISTERS SO THAT 
d*COMPARES CA® BE DONE 


JSR RO, @RSAVER sSAVE 

RWC 3FROM 

WRFROM 270 

19. SNUMBER OF REGISTERS SAVED 


3*AS UPPER BYTE OF RHAS CAN BE CHANGING IW A DUAL PORT 
S*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
9*SO THAT THE COMPAPES ARE ONLY VALID FOR THE LOWER BYTE 
MOvVB GSREINTO*25, @FURFROM*25 SAVE UPPER RHAS 


S*COMPARE REGISTERS APTER INITIALIZE 
JSR RO, @ECOMPAR sCOMPARE 


— — — 





. a Aa a a aA a 


a a fA 





— a 


_ a a Aa Aa 
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4599 023406 003154 REIWTO 26000 BUFFER 

4600 023410 002110 WRFROM sTEST BUFFER « 

4601 023412 000023 19. sNUMBER OF REGISTERS TO BE | 

4602 sCOMPARED 

4603 023414 023422 3$ SRETURH POINT FOR ERROR 

4604 023416 023422 3$ 3 SAME 

oe 023420 023442 4$ SRETURH POINT FOR GOOD COMPARISON 

4607 023422 013705 047320 3$3 ov @#ERWORD, RS SCETTING READY TO INDEX 

4608 023426 060505 aodod RS,R5 sDOUBLE ERROR wORD 

4609 023430 016537 001630 042204 MOV RAWC-2(RS),O#REGADR ZSFAILING REGISTER ADDRESS 

4610 023436 104001 ERROR 1 JIMPROPER REGISTER 

4611 SCONTENTS APTER ites aM 

4612 sTMITIALIZE FOLLOWING A 

4613 SPECALIBRATE COMMAND 

sane 023440 000207 RTS PC SRETURN TO COMPARISON 

4616 023442 4$3 26000 COMPARISON 
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DZRJGA.P11 § 29-MAR-76 00300 TS RECALIGRATE COMMAND TEST 
4617 
4618 
4619 ZPTAAAMAAARASAAARAARAAAKARARAAREARAAAAAAARAERKKARAASARAAAAATAASAAKeReAes 
4620 d*TEST 52 RELEASE COMMAND TEST — 
4621 
4622 3e* THE RELEASE COMMAND WILL BE LOADED INTO RHCS1 WITH CO 
4623 pee THEN ALL REGISTERS WILL BE CHECKED 
4624 pee RH CLEAR WILL BE GIVEN 
4625 3ee THEN ALL REGISTERS WILL BE CHECKED 
pote IIIIIIIIIIIIIITVVXRIXVVVV 
4628 023442 000004 TSTS2: SCOPE 
4629 023444 012706 001000 nov #STACK, SP dRESET STACK 
4630 023450 012737 000052 002032 nov #TTNO,QBTSTNM ZTHIS SAVES TEST NUMBER 
4631 023456 004737 042534 JSR PC, @SCLDISK sINIT AWD SET UP GENERAL REG. 
4632 dAND UNIT NONBER 
4633 023462 012777 000001 156170 MOV #OND, @RHMR 3SET DIAGHOSTIC MODE BIT 
4634 | STHIS EWABLES COMMANDS WITHOUT MOL 
4635 3AND HOLDS RHLA FROM WOVING 
4636 
4637 023470 013777 002052 156142 mov QPRELEASE,@RHCS1 ;LOAD RELEASE COMMAND IuTO RCS 
4638 
4639 d*SAVE REGISTERS FOR COMPARISON AFTER GO 
4640 023476 004037 043226 JSR RO, OESAVER BSAVE 
4641 023502 001632 —8 anuc rãdn 
4642 023504 003154 . REINTO 90 
4643 023506 000023 19. PNUMBER OF REGISTERS SAVED 
4644 
4645 d*GIVE GO TO RELEASE COMMAND 
4646 023510 052777 000001 156122 BIS #C0,@RHCS1 3CO TO RELEASE COMMAND 
4647 023516 052777 000001 156134 BIS @DMD, @RAWR 3SET OMD TO HOLD RHLA 
4649 P*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
4650 d*APTER GO HAS BEEN GIVEN TO RELEASE COMMAND 
4651 023524 052737 000001 003202 BIS SOND, @ERETNTO*26,SAVED RUMR 
4652 023532 017737 156136 003216 Mov @RHLA, @PREINTOS42;SAVED RALA 
4654 
4655 s*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAW 
4656 3*BE DONE 
4657 023540 004037 043226 JSR RO, RUSAVER sSAVE 
4658 023544 001632 RHWC >FROM 
4659 023546 002110 wRFROW 370 
4660 023550 000023 19. SWUMBER OF REGISTERS SAVED 
4661 
4662 3*AS UPPER BYTE OF RHAS CAN BE CHANGING IW A DUAL PORT 
4663 S*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED aS IS 
4664 3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
4565 023552 113737 003201 002135 MOVE  @PREINTO+25, @#WRFROM*25)SAVE UPPER RHAS 
4667 Kd 
4668 P*COMPARE REGISTERS BEFORE RELEASE COMMAND 
4669 p*WITH AFTER GO 
4670 023560 004037 043430 JSR RO, @ECOMPAR sCOMPARE 
4671 023564 003154 REINTO 3GO0D BUFFER 


4672 023566 002110 WRFROM sTEST BUFFER 
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OZRIGA.P11 29-MAR-76 00:00 
4673 023570 000023 19. 
4674 023572 023600 1$ 
4675 023574 023600 i$ 
pods 023576 023620 2$ 
4678 023600 013705 047320 1$: Mov 
4679 023604 060505 ADD 
4680 023606 016537 001630 042204 MoV 
4681 023614 104001 ERROR 
4662 
4683 
4684 023616 000207 RTs 
4685 023620 2$3 
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RELEASE COMMAND TEST 


sNUMBER 

sRETURH FOR ERROR 

3SAME 

SRETURH FOR GOOD COMPARISON 


sGETTING REAYD TO INDEX 
sDOUBLE ERROR WORD 


@#ERWORD,RS 
RS,RS 


RHUC-2(RS),BBRECADR SFAILING REGISTER ADORESS 
1 SIMPROPER REGISTER CHANGE 
dAPTER RELEASE COMMABD 
sWITH GO IS GIVEN 
Pc SRETURE TO COMPARISON 
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4687 
4688 
4689 
4690 
4691 
4692 
4693 
4694 
4695 
4696 
4697 
4698 
4699 
4700 
4701 
4702 
4703 
4704 
4705 
4706 
4707 
4708 
4709 
4710 
4711 
4712 
4713 
4714 
4715 
4716 
4717 
4718 
4719 
4720 
4721 
4722 
4723 
4724 
4725 
4726 
4727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4738 
4739 
4740 
4741 
4742 


023620 
023622 
023626 
023634 
023640 
023646 


023654 
023656 
023662 
023670 


023674 
023702 
023706 
023714 
023720 
023724 
023726 
023730 


023732 
023736 


023742 


29-MAR-76 00:00 


000004 
012706 
012737 
004737 
012777 
004037 


000004 
012706 
012737 
004737 


012777 
005077 
012777 
013711 
004037 
001632 
003154 
000023 


004737 
104401 


001000 
000053 
942534 
000001 
045106 


001000 
000054 
042534 


000025 
155744 


010000 
002054 


043226 


042570 
062145 


002032 
156012 


002032 


155742 


155734 


XXXR 
3*TEST 53 MAKE CURRENT CYLINDER = 0 


F SAARARAAKRSAAAAAAAAAAAAERAAAAKARAARAAAAAAAAAAAAAHRAARAAERARAEAAARAED 


TSTS33 


FP SAAAAAAAAAAAAAAAAAAAAAAAHAAAAAALAAAAAAAAAAAAAAAOHAAAAAARAARLALE 


s*TEST 54 LOOK AHEAD REGISTER 

ped A SEARCH COMMAND IS GIVEN FOR CYLINDER 0, TRACK 0, SECTOR 21. 

gee THE LOOK AHEAD RECISTER IS CHECKED AFTER INDEX PULSE 

bed TRE EXTENSION FIELD [S CHECKED IN EACH SECTOR AFTER 

gee 126 BYTES THEN AGAIN AFTER 126 WORE BYTES THEW AGAIN AFTER 256 MORE BYTES 
— THE SECTOR COUNT FIELD IS CHECKED AFTER EACH SECTOR 

gee AT THE END ALL REGISTERS ARE CHECKED 


TSTS4: 


RELEASE COMMAND TEST 


SCOPE 

mov @STACK, SP . §RESET STACK 

MoV STTHO,GSTSTHN JTHIS SAVES TEST NUMBER 
JSR PC, @BCLOISK dINIT ORIVE 

Mov @DND, QRUWR 3SET DIAGNOSTIC KODE 


JSR RO, OSM AKECYL sSUBROUTINE TO GIVE A SEEK 
SCOMMAND FOLOWED BY AN INIT 
sTHITS SHOULD CHANCE RACC 

0 sCHANGE RACC TO 0 


SCOPE 
MoV #STACK,SP pRESET STACK 
mov STTRO,OSTSTUM  j;THIS SAVES TEST HUMBER 
JSR PC, @gCLDISK 3INIT AND SET UP CEWERAL REGISTERS 
S*THESE ARE REGULAR SET UPS FOR SEARCH COMMAND 
MOV #21.,0aHDST sDESIRED SECTOR/TRACK REGISTER 
STRACK © SECTOR 21 
CLR @RHCA #DESIRED CYLINDER =0 
Mov @PNT22,@RHOF  § sFORMAT BIT=1 (16 BITS PER WORD) 
MOV @#SERCH, @R1 3FILL SEARCH COMMAND Im RACSI 
s*NOW SAVE REGISTERS STARTING FROM RHWC IW WRITE FROM BUFFER 
JSR RO, @BSAVER 3SAVE REGISTERS FOR COMPARISON 
3AT THE EMD OF THE SEARCH 
RAWC sSTART SAVING FROM RHWC 
REINTO PSAVE INTO REINTO 
19. 3NUMBER OF REGISTERS SAVED 
JSR PC, RECHECKT sCHECK THAT DVA,RDY,DPK,DRY = 1 
TYPE ,CPHALT 34ND THAT HO OTHERS = 1. CANNOT CON- 
dTINUE TESTING IF BOTH AREN°T TRUE 
HALT 3STOP THE TEST RY 


3*NOW THE DIAGNOSTIC MODE BIT WILL BE SET 
s*AND THE SEARCH OPERATION STARTED 


aA__aAa @ @& @ @® @& @& @& @& @& a& @& @& @& @& @& @& @ @ @ @ 
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4743 
4744 
4745 
4746 
4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
4758 
4759 
4760 
4761 
476? 
4763 
4764 
4765 
4766 
4767 
4768 
47169 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
4761 
4782 
4783 
4784 
4785 
4786 
4787 
4768 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 


023744 


023750 
023754 
023760 
023764 
023770 
023774 
024002 
024006 
024012 
024014 
024020 
024024 
024026 
024032 
024036 
024040 


024042 
024050 
024056 
024064 


024072 
024074 
024102 
024106 
024112 
024116 
024122 


024124 
024130 
024134 
024136 
024142 
024146 
024152 
024156 
024160 
024162 
024166 
024172 


29-MAP-76 
005037 


013700 
017703 
042703 
010337 
012710 
052777 
052710 
042710 
000240 
052710 
042710 
000240 
052710 
012710 
005703 
001555 


012737 
017737 
017737 
023737 


001414 
013737 
160337 
012746 
163716 
012637 
104024 


012702 
012705 
000404 
052710 
042710 
052710 
042710 
005302 
001372 
005337 
012702 
005305 


00:00 
001200 


001660 
155664 
177400 
053244 
000001 
000001 
000010 
000010 


000010 
000010 


000014 
000001 


091140 
155620 
155562 
001200 


053244 
001202 
001140 
001206 
001204 


000010 
000002 


000012 
000012 
000002 
000002 


001206 
000007 


155636 


001206 
001126 
001720 
001126 


001202 


TS4 


1$: 


283 


3$3 
4$s 
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LOOK AHEAD REGISTER 


CLR 


QRSTMPL STHTS WYLL HAVE TRE EXPECTED 
sVALUE OF RHLA RECISTER 
@#RHMR, RO sNOW 80 HAS MAINTENANCE REG. ADDR. 
@RHDST,R3 sGET DESIRED SECTOR/TRACK REG. 
#177400,R3 3GET SECTOR ORLY 
R3,@8SECTR sDUPLICATE SECTOR 
#0MD,@RO 3S 
#G0, @RHCS1 360 
#™STCK,@RO 3SET SECTOR CLOCK 
@¥STCK, ARO sCLEAR SECTOR CLOCK 
JALLOW TIME BETWEEN SECTOR CLOCKS 
@MSTCK,@RO 3SET SECTOR CLOCK 
#MSTCK,@RO sCLEAR SECTOR CLOCK 


sALLOW TIME BETWEEN SECTOR CLOCKS 
SMINXIMSTCK,@RO 3SET INDEX AND SECTOR CLOCK 


#0MD, RO sRESET INDEX AND SECTOR CLOCK 
R3 31P SECTOR PEQUIRED JUMP OUT 
11$ SPRANCH OF SECTOR ZERO PEQUIRED 


s*APTER THE INDEX PULSE RHLA WILL BE CHECKED TO BE ZERO 
3*AND S$TMP4 WILL BE SET UP TO COUNT BYTES 


MOV 
MOV 
MOV 
CMP 


#608.,@#STMP4 ;THERE ARE 608 BYTES PER SECTOR 

@RHLA,@#SPRDDAT 3SAVE RHLA 

@RHDST, A8DST sSAVE DESTRED SECTOR TRACK 

GSSTMPL,@#SBDDAT ;KHLA SHOULD BE HAVE EXTENSION 
sFIELD EQUAL TO ZERO 


2$ sPRARCH IF GOOD 
@SSECTR,@ESTMP2 SGET SECTOR SOUGHT 

R3, @SSTMP2 3STMP2 NOW HAS PRESENT SECTOR 
#608.,-(SP) sNUMBER OF BYTES PER SECTOR 


QRSTMP4, (SP) 3(SP)HAS PRESENT BYTE NUMBER 

(SP), @#STMP3 sPRESENT BYTE NUMBER 

24 sLOOK AHEAD REGISTER AT THE BEGINING OF A 
sSECTOR IS TM ERROR 


3*NOW THE 304 WORDS WILL START 

3*FOR FIRST BYTE CLOCK WILL BE INDEPENDENT OF 
s*SFCTOR CLOCK THEN IT WILL COINCIDE FOREVER TILL 
3*THE BEGINNING OF NEXT SECTOR 


3*OWE WORD ONLY THAT IS TWO BYTES 


MOV 
MoV 
BP 

BIS 
BIC 
BIS 
BIC 
DEC 
BNE 
DEC 
MOV 
DEC 


#53.,R2 sBYTE 
59* 281765 PER WORD 


@MSTCKIMCLK,@RO 3SET SECTOR AND CLOCK 
@MSTCKIMCLK,@RO ;CLEAR SECTOR AND CLOCK 


#¥CLK, @RO sSET CLOCK 

#MCLK,@PO sCLEAR CLOCK 

R2 sBYTE COUNTER 

4s sBRANCH IF BYTE NOT COMPLETE 
@SSTMP4 sBYTE COUNT DOWN 

#7,°2 sSETUP FOR SECOND BYTE 

k5 31S WORD COMPLETE? 





Ar 
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4799 024174 001360 s BWE 3$ sBRENCH IF NOT COMPLETE 

4800 3TO GIVE SECTOR CLOCK AND CLOCK 

4801 

4802 3*NOW 303 WORDS ARE LEFT ALL ARE TOENTICAL 

4803 3*THAT IS 606 IDENTICAL BYTES WILL BE GIVER 

4804 3*RALA WILL BE CHECKED STAR TO COUNT AFTER 

4805 S*BEGINWING OF SECTOR PULSE 

4806 s*APTER 128 BYTES (2 BYTES ARE ALREADY CIVER) 

4807 3*S0 127 MORE 

4808 S*THEN RHLA WILL BE CHECKED APTER 126 MORE BYTES 

4809 S*THEN RHLA WILL BE CHECKED AFTER 256 HORE BYTES 

4810 s*THEN THE TOTAL OF 606 BYTES WILL BE CONPLETED 

4811 S*AND RALA WILL BE MADE READY FOR NEXT SECTOR 

48612 3*AND RALA WILL BE CHECKED 

4813 

4814 024176 012705 000100 “ov #64.,P5 3RS WILL KEEP TRACK WHER 

4815 ; SEXTEWSION FIELD IS TO BE CHECKED 

4816 024202 012701 000177 mov 8127.,R1 SPIRST TIME CHECK EXTENSION FIELD 

4617 ZAPTER 127 MORE BYTES 

4818 024206 012702 000007 5$3 MOV #7,R2 sCLOCKS PER BYTE COUNTER 

46819 024212 052710 000012 BIS SMSTCKIMCLK,@RO 3SET SECTOR CLOCK AND CLOCK 

4820 024216 042710 000012 BIC @MSTCKIMCLK, @RO ;CLEAR SECTOR CLOCK AND CLOCK 

4821 024222 052710 000002 6$3 8Is @MCLK, ORO 3SET CLOCK 

4822 024226 042710 000002 BIC SMCLK, @RO SRESET CLOCK 

4823 024232 005302 DEC R2 sCOURT DOWN CLOCKS PER BYTE 

4824 024234 001372 BNE 6$ SBRABCH IF BYTE BOT COMPLETE 

4825 024236 005337 001206 DEC OsSTuP4 sCOUNT DOWN BYTES 

4826 024242 001436 BEQ 10$ sBRANCHOUT IF 606 BYTES DONE 

4827 024244 005301 DEC R1 sCOUNT DOWN BUNBER OF BYTES 

4828 3TO CHECK EXTENSION FIELD 

4829 024246 001357 BRE $$ sBRANCH IP EXTENSION FIELD HOT 

4830 3TO BE CHECKED YET 

48631 

4832 3*HOW TRE EXTENSION FIELD OF THE LOOK ANEAD REGISTER 

pone s*WILL BE CHECKED 

4835 024250 062737 000020 001200 aDD #20, 2e8 TMP1 sGET TO THE NEXT EXTENSION 

ae 024256 017737 155412 001126 mov GRHLA,@#SBDDAT  ;GET RHLA FOR COMPARISON 

4 

4838 024764 017737 155354 001720 MOV @RHDST, AEDST SSAVE DESIRED SECTOR TRACK 

4839 024272 023737 001200 001126 cup @RSTMP1,@SSBDDAT ;CHECK WALUE OF RHLA 

4840 024300 001414 BEQ 7$ sBRANCH IF COOD 

4841 024302 013737 053244 001202 MoV @SSECTR, GASTMP2 ZSCET SECTOR SOUCHT 

4842 024310 160337 001202 SUB R3,88STMP2 3STMP? HOW HAS PRESENT SECTOR 

4843 024314 012746 001140 MOV #608.,-(SP) SNUMNBER OF BYTES PER SECTOR 

4844 024320 163716 001296 sUB @8STMP4, (SP) 3(SP) HAS PRESENT BYTE NUMBER 

4845 024324 012637 001204 MOV (SP )¢,@8STMP3 SPRESENT BYTE NUMBER 

4846 024330 104025 ERROR 25 sLOOK AHEAD ERROR IN THE MIDOLE 

a 30F A SECTOR IS IW ERROR 

4 

4849 024332 060505 752 ADD RS RS sGET WEXT STEP TO CHECK EXTENSION FIELD 

4850 024334 010501 MOV RS,R1 sPUT IN COUNTER 

4851 024336 000723 BR 5$ ZPRANCH BACK SECTOR 

4852 31S MOT COMPLETE 

4853 024340 062737 000020 001200 10$: 4D0 #20, @8STMP1 

4654 024346 052710 000010 BIS #MSTCK,@RO sTHESE TWO INSTRUCTIONS GIVE 
ee 





MNDEC-11-DZRJG-A, RP04/5/6 DSKLS CONTROLLER TST-PT 1 MACY11 30€1046) O8-DEC-77 13:57 PACE 109 
DZRJGA.P11 29-MAR-76 00:00 TS54 LOOK AHEAD REGISTER 
4855 024352 042710 000010 BIC OMSTCK,@RO 3ONE SECTOR CLOCK EXTRA 
4856 024356 000240 woP sALLOW TINE BETWEEN SECTOR CLOCK 
4857 024360 052710 000010 818 fus7cxk, @RO STHESE TWO TUSTRUCTIONS CIVE 
4856 024364 042710 000010 BIC @MSTCK,@RO sO0N€ SECTOR CLOCK EARLY 
4859 sBEPORE THE NEXT SECTOR 
4860 024370 005303 DEC R3 3TS REQUIRED NO OF SECTORS COMPLETE 
poe 024372 001223 BRE is sBRAnCH IF ROT 
4863 3*HOW THE REQUIRED SECTOR IS REACHED 
4864 3*ONE SECTOR CLOCK WILL BE GIVEN TO GET SECTOR PULSE 
4865 3*DOWN AND HENCE ATA UP 
4866 
4867 024374 012702 000010 11$3 “ov 86.,R2 38 CLOCKS 
4868 024400 052710 000002 1252 BIS #¥CLK, @RO sSET CLOCK 
4869 024404 042710 000002 BIC #MCLK, ORO sCLEAR CLOCKS 
4870 024410 005302 DEC R2 3COUND DOWN 
4871 024412 001372 BRE 12$ sBRANCH IF 8 ROT DORE 
4872 024414 052710 000012 BIS SMSTCKIMCLK,@RO 3SET SECTOR AWD CLOCK 
—* 024420 042710 000012 BIC SMSTCKEMCLE,@RO sCLEAR SECTOR ABD CLOCK 
4875 3*HOW ALL REGISTERS WILL BE COMPARED 
—*1 3*SO FILL EXPECTED VALUE IETO SAVED LOCATIONS 
4876 024424 052737 100000 003162 * BIS @SC,@GREINTOCG ZIBCLUDE SC IN SAVED RHCS1 
4879 024432 053737 002016 003200 BIS QPATTENT, OBREINTOS24 SFILL APPROPIATE ATTENTION 
4880 318 SAVED RHAS 
4861 024440 052737 000001 003202 BIs SOND, QBREINTO*26 FSET OND IN RHWR SAVED 
4882 024446 052737 100000 003204 BIS @ATA, AEREINTOC3O ZSET ATA IW RHDS1 SAVED 
4883 024454 013737 001200 003216 MoV OSSTMP1,@PREINTOS42 MOVE EXPECTED VALUE 
4864 21070 RALA SAVED 
4885 
4886 S*APTER SEARCH COMMAND 
4887 s*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 
4888 
4889 024462 004037 043226 JSR RO, @ESAVER sSAVE 
4890 024466 001632 auuc 3FRON 
4891 024470 002110 WRFROM 270 
4892 024472 000023 19. 3 NUMBER 
4893 
4894 a*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
4895 Z*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
4896 3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
—9* 024474 113737 003201 002135 MOVB Q#REINTO* 25, BFURFROM*253SAVE UPPER RHAS 
4 
4699 
a S*COMPARE REGISTERS BEFORE SEARCH WITH AFTER 
4902 024502 004037 043430 JSR RO, S8COMPAR 3COMPAR 
tee, 024506 003154 REINTO 260 BUFFER 
4905 024510 002110 WRFROM sTEST BUFFER 
4906 024512 000022 18. 3 NUMBER 
4907 024514 024522 13$ SRETURN FOR ERROR 
4908 024516 024522 13$ dSAPE 
4909 024520 024542 14$ SPETURN FOR GOOD COMPARISON 
4910 024522 013705 047320 13$% nov @#ERWORD, PS sCGETTING READY TO INDEX 


clo 
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OZRIGA.P11 29-MAR-76 00:00 TS4 LOOK AHEAD REGISTER 
4911 024526 060505 abd RS,R SDOUBLE ERROR wORD 
4912 024530 016537 001630 042704 mov RHUC~2(RS)-OORECADR sPAILING REG. ADDRESS 
4913 024536 104001 ; ERROR 1 sCONTENTS OF RECISTER 
4914 024540 000207 rts Pc sCHANGED AT END OF 
4915 024542 14$: sSEARCH 
4916 


dio 


MNDEC-11-DZRJG-A,RP04/5/6 OSKLS —— > hap 2 


OZRIGA.P11 


4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 


024542 
024544 
024550 
024556 
024562 
024570 


024574 


29-MAR-76 00:00 


000004 
012706 
012737 
004737 
012777 
004037 


001000 
000055 002032 
042534 
000001 155070 
045106 


MACY11 30(1046) O8-DEC-77 13:57 PACE 111 
LOOK AHEAD REGISTER 


33 EXIIIIIVE&GX 


MAKE CURRENT CYLINDER = 0 
3p PUMA NAAR NRAReReRNEeReRREREReRRARRA RARER ELeReERANAAeREReReReREES 


3*TEST 55 


TSTSS: SCOPE 


nov 
Mov 
JsR 
nov 
JSR 


@STACK,SP 
STTHO, OF TSTHN 
PC, RECLDISK 
SOND, @RHMR 
RO, @BMAKECYL 


SRESET STACK 

gTHIS SAVES TEST NONBER 
sTUIT ORIVE 

sSET DIAGBHOSTIC MODE 
sSUBROUTINE TO CIVE A SEEK 
SCOMMAND FOLOWED BY AW IBIT 
3THIS SHOULD CHANGE RACC 
sCHANGE RACC TO 0 








MNDEC-11-DZRJG-A, RP04/5/6 DSKLS — E—⏑⏑—⏑ —— 1 


OZRIGA.P11 


4931 
4932 
4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4942 
4944 
4945 
4946 
4947 
4948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4958 
4959 
4960 
4961 
4962 
4963 
4964 
4965 
4966 
4967 
4968 
4969 
4970 
4971 
4972 
4973 
4974 
4975 
4976 
4977 
4978 
4979 
4980 
4981 
4982 
49863 
4964 
4985 
4986 


024576 
024600 
024604 


024612 
024616 
024622 
024626 
024630 
024632 


024636 


024644 
024650 
024654 
024660 
024666 
024672 
024674 


024676 
024704 
024710 
024714 
024720 


024724 
024726 
024730 
024732 


024736 
024742 


29-MAR-76 00:00 


000004 
012706 
012737 


012700 
012701 
012720 
005301 
001374 
004737 


012737 


005037 
005037 
005037 
012737 
004537 
052336 
052346 


012777 
012700 
010077 
012705 
012720 


005020 
005305 
001375 
005077 


004737 
104401 


001000 
000056 


051020 
000460 
177777 


042534 


010000 


052340 
052342 
052344 
000400 
043742 


177374 
002110 
154720 
000403 
010000 


154706 


042570 
062145 


002032 


052336 


052376 


154726 





MACY11 30(1046) 08-DEC-77 13357 PACE 112 
MAKE CURRENT CYLINDER = 0 ( 


eSSTTL READ/URITE ADDRESSING VIA RAMP 


3*TEST 56 WRITE HEADER AND DATA 1 ( 

37 WRITE CYLINDER 0, FORMAT 16 BIT PER BORD 

see TRACK 0, SECTOR 0, KEYS 0, HUMBER OF WORDS 256 OF 0°S ( 
pee AS EVERYTHING IS ZERO THIS PROVES VERY LITTLE 

3* AWY ERROR LOGIC INDICATIONS ARE MOT CONCLUSIVE OW FIRST PASS 

3e0 BECAUSE ERROR LOGIC WAS HOT BEEN CHECKED YET (ON FIRST PASS) ( 


33 SIKAAAKSKSKRSRAARARSARAARAAARAARAS CAASHSKALHAREARAAAAARAAARAAAARAAAREEER 


TSTS6: SCOPE 


iss MOV 


o* THESE 
Mov 


CLR 
CLR 
CUR 
MoV 
JSR 
wcYL 
ccrc 


3* THESE 


2$3 CLR 
DEC 
BWE 
CLR 


JSR 
TYPE 





@STACK,SP 
STTNO, O#TSTUM 


#SECGAP,RO 


#304.,R1 
#-1,(RO)o 
R1 


1$ 
PC, CLOISK 


sRESET STACK 
sTHIS SAVES TEST BUMBER 


sPOTUTER 

3 COUNTER 

sCLEAR “DISK" AREA TO ALL ONES ( 
3 


2 
sTHIS IS USED TO SET UP GENERAL ( 
sREGISTER CORRESPONDENCE 


ARE TO SET UP FOR DISKLESS USE ONLY ( 


SFMT22,QgNCYL 


esusecrR 
@#UKEYI 
@RUKEY2 

#256., @#FNWORD 
R5,eeCRC 


sPORMAT 22=16 BIT WORDS AND 

SCYLIWDER 0 ( 
sTRACK20, SECTOR=0 

sKEY1=0 

sKEY2=0 ( 
3256 DATAWORDS 

360 TO CALCULATE Cre 


ARE REGULAR SETUPS FOR RH11 & “"WRFROM™ OUTPUT BUFFER ( 


#-260., @RHUC 
@¥RFROM, RO 
RO, @RHBA 
$259.,R5 
#FMT22,(RO)D* 


@RHDST 


PC, @SCHECKT 
@CPHALT 





3256 DATA WORDS 4 HEADER WORDS 

38US ADDRESS TO BE ( 
3BUFFER °WaFRON® 

sCOUNTER 

FORMAT =16 BIT WORD ( 


sSECTOR=0, TRACK=0,KEYS=0, ALL DATA=0 
9& CYLINDER=0....S0 CLEAR ALL "wRPRON™ ( 
SCONTINUVE IF ALL 259 NOT COMPLETE 
sTRACK=0, SECTOR=0 


fib 
sCHECK THAT DVA,RDY,DPR,DRY = 1 
3AND THAT NO OTHERS = 1. CANNOT con- ( 
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OZRIGA.P11 


4967 
4968 
4969 
4990 
4991 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 
5000 
5001 
5002 
5003 
5004 
S005 
5006 
5007 
5008 
5009 
5010 
5011 
5012 
$013 
$014 
$015 
5016 
$017 
5018 
5019 
5020 
5021 
5022 
5023 
$024 
5025 
5026 
$027 
50286 
5029 
3030 
$031 
5032 
5033 
5034 
5035 
5036 
5037 
5038 
$039 
5040 
5041 
5042 


024746 
024750 


024754 
024760 
024766 
024772 


024776 
025004 
025006 


025010 
025014 
025016 
0256022 
025026 
025030 
025034 


025040 
025044 
025046 
025050 
025052 


025056 
025062 
025064 
025066 
025070 
025072 
025074 
025076 
025100 
025102 


29-MAR-76 00:00 


000000 
013711 


005037 
012777 
005077 
004737 


017737 
001401 
104040 


005737 
001034 
004737 
104401 
000000 
005037 
005037 


004037 
003154 
004214 
000000 
005037 


004037 
003154 
051116 
000421 
025076 
025102 
025106 
104007 


000207. 


104010 


002064 
002006 
010000 


154660 
052162 


154630 


002006 


042760 
062145 


052116 
052120 


042452 


002006 


043430 


154662 


001126 


T56 


552 


2352 
452 


WRITE HEADER AND DATA 1 


sTIWUE TESTING TF BOTH ARENT TRUE 
HALT 3stoPp THE TEST 


nov O#URIFOR, OR1 SCET READY FOR WRITE HEADER 
3AUD DATA WITH 62 IB RECSI 
CLR @SERFLGS sCLEAR ERROR PLAG 


mov #PuT 22, @RAOF SPORMAT BIT=1 16 BIT WORDS 
CUR @RHCA sCYLINDER O 
JSR PC, @FCOMUHD SURITE READER AND DATA FRON “VRFRON” 


STUTO THE RHNR RECISTER AND BACK INTO 
: sCORE “DISK” AREA 


3*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR 
s*PRINT CUTS FROM THE “COMWHD" ROUTINE THAT MEARS 
3*ALL HEADER OW DISK IS GOOD TE. ONLY DATA IS 
3*TO0 BE CHECKED f0 SEE IF IT IS ZERO 


d*AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF THEY 
3*ARE ALL ZEROS (ECC1 AND ECC2 WAY NOT BE 0) AS WELL AS 
S*CHECKING RHWC FOR ZERO 


Mov @RHWC,$BDDAT 3MOVE WORD COUNTER THTO BAD DATA 

BEQ 5$ SSHOULD HAVE COUNTED UP TO ZERO 

ERROR 40 sRHWC DID BOT = O APTER A URITE 
SREADER AND DATA 


Tst @#ERFLCS SHAVE ANY ERRORS OCCURED? 

BRE 18157 3 9GRANCH IF YES 

JSR PC, @BCHECKE sCHECK THAT BITS = 1 

TYPE oCPHALT sCARNOT CONTINUE TESTING IF THEY DON’T 


HALT 3SToP TRE TEST 
CLR @#¥ECCI aCLEAR ECC 
CLR @ewECC2 


s*REINTO BUFFER IS FILLED WITH EXPECTED DATA OF ALL 0°S 


JSR RO, RECLAREA sCLEAR “RELHTO" 
REINTO aFRON 
REINTO*<272.°2> 3TO 

eWORD 0 SPILL WITH ZEROS 

CLR @#ERFLGS sCLEAR ERROR FLAG 


a*COMPARE “"REINTO" BUFFER WITH "DISK" BUFFER 


JSR RO, SECOMPAR sCHECK 
RE INTO 26000 BUFFER 
DISK sTEST BUFFER 
273. SNUMBER OF WORDS CHECKED 
3$ SRETURN POINT FOR ERROR HEADER 
4$ SPETURN POIRT FOR ERROR DATA 
Tst57 sRETURN FOR GOOD COMPARISON 
ERROR 7 SREAD ERROR1O NEXT 
RTS pc sPETURN TO “COMPAR® 
ERROR 10 sWORD WOS 1 TO 256 ARE 
sDATA WORDS 


3257 AND 258 ARE ECC 


— — — — — — — — — — 


Glo 
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DZRIGA.P11 29-MAR-76 00:00 756 WRITE HEADER AND DATA 1 ( 
5043 3ZEROED OUT 
5044 3259 TO 273 TOLERANCE GAP ( 
= 025104 000207 RTS ec 
5046 


¥10 





5047 
5048 
5049 
5050 
5051 
$052 
5053 
5054 
5055 
5056 
5057 
5058 
5059 
5060 
5061 
5062 
5063 
5064 
5065 
506¢ 
$067 
5068 
5069 
5070 
5071 
$072 
5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 
5081 
508? 
5083 
5084 
5085 
50866 
5087 
5068 
5089 
5090 
5091 
5092 
5093 
5094 
5095 
5096 
5097 
5098 
5099 
5100 
5101 
5102 


OZRJGA-P11 


025106 
025110 
025114 


025122 
025126 
025132 
025134 
025136 
025140 


025144 


025152 
025160 
025164 
025170 
025176 
025202 
025204 


025206 
025214 
025220 


025224 


025230 
025234 
025236 
025240 
025244 
025250 
025252 
025254 


025262 
025266 


025272 


000004 
012706 
012737 


012700 
012701 
005020 
005301 
001375 
004737 


012737 


012737 
005037 
005037 
012737 
004537 
052336 
052346 


012777 
012700 
010077 


012720 


012720 
005020 
005020 
012705 
012720 
005305 
001374 
012777 


004737 
104401 


001000 
000057 


051020 
000460 


042534 


010000 


000001 
052342 
052344 
000400 
043742 


177374 
002110 
154410 
010000 
000001 
000400 
177777 
000001 


042570 
062145 


MNDEC-11-DZRJG-A,RPO4/S/6 OSKLS CONTROLLER TST-PT 1 
29-MAR-76 00:00 TS6 


002032 


052336 
052340 


052376 


154416 


154362 


WACY11 30(1046 


) 
WRITE HEADER AND DATA 1 


08-DEC-77 13357 PAGE 115 


3*TEST $7 WRITE HEADER AND DATA 2 

pee WRITE CYLINDERO, FORMAT 16 BITS PER WORD 

ee TRACK 0, SECTOR 1, KEYS 0, NUMBER OF WORDS 256 

ee OF ALL ONES. ; 

zee ANY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE OW FIRST PASS 
ee BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS) 


33 IIXXIXVVVXVVVVVXX 


TSTS7: SCOPE 


1$: CLR 


3* THESE 
MoV 


MoV 
CUR 
CLR 
MoV 
JSR 
wCYL 
Gcrc 


3 * THESE 


2$3 MOV 
CLR 
CLR 
Mov 
3$3 MOV 
DEC 
BNE 
MOV 


JSR 
TYPE 


HALT 


SSTACK, SP 
@TINO, derstun 


SSECGAP,RO 
#304.,R1 
CRO)e 

R1 

1$ 

PC, @SCLOISK 


ARE TO BE SETUP 
@FMT22, @#UCYL 


#1,@8¥SECTR 
GOUKEYI 
@SUKEY2 
#256.,08F NWORD 
RS, eecre 


gRESET STACK 
STHIS SAVES TEST NUMBER 


sPOINTER 

sCOUNTER 

sCLEAR SIMULATED "DISK" AREA IN CORE 
3 


3 
STHIS IS USED TO SET GENERAL RECISTERS 
FOR DISKLESS USE ONLY 


sPORMAT 22 = 16 BIT WORDS AND 
sCYLIWDER 0 

sTRACK20, SECTOR=1 

sKEViz0 

sR EV2=0 

3256 DATA WORDS 

260 TO CALCULATE Cre 


ARE REGULAR SETUPS FOR THE RH11 AND “WRFROM" BUFFER 


#-260., SRHWC 
@WRFROM, RO 
RO, @RABA 


#PMT22,(RODO 


#1, (RO)* 
(RO) 

CRO De 
#256-.,R5 
#-1,(RO)e 
RS 


3$ 
#1, @RHOST 


PC, @RCHECFT 
7 CPHALT 


3256 DATA WORDS 4 HEADER WORDS 
sTHESE TWO INSTRUCTIONS GETS 
SADDR. OF WRFROM TUTTO RO AND 
3PUS ADDRESS REGISTER 
sPORMAT=16 BIT WORDS 
sCYLINDER=0 

STRACK=0, SECTOR=1, KEYS=0 
sKEVi=0 

sKEY2=0 

sCOUNTER 

sMOVE ALL OWES FOR DATA 


sBRANCH IF DATA NOT COMPLETE 
sTRACK=0 SECTOR=1 


sCHECK THAT DVA,RDY,DPR,DRY = 1 

SAND THAT MO OTHERS = 1. CANNUT CON- 
STINUE TESTING IF BOTH ARENT TRUE 
sStoP THE TEST 


jie 





Ao. 2 o_o © © 2. | eh he | ee le le le le le le le le ee 
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DZRIGAsP11  29-MAR-76 00:00 157 WRITE HEADER AND DATA 2 ( 
5103 025274 013711 002064 mov @FURIFOR, @R1 3CET READY FOR WRITE READER AND 
5104 3DATA WITH 62 IW RHCS1 ( 
5105 025300 005037 002006 CLR @eERFLCS #CLEAR ERROR FLAG 
5106 025304 012777 010000 154336 mov #FNT22,@RHOF  ##§ FORMAT BIT=1 (16 BIT WORDS) 
5107 025312 005077 154334 CLR @RHCA 3CYLINDER =0 ( 
$108 025316 004737 052162 JSR PC, @ECOMWHD SWRITE HEADER AWD DATA INTO “DISK” AREA 
510 
5110 s*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS . { 
§111 3*FROM THE “COMWHD® ROUTINE THAT MEANS ALL THE READER OW "DISK® 
5112 3*IS GOOD IE. ONLY THE DATA IS TO BE CHECKED TO SEE IF If IS 
5113 d*ALL OWES AND WRITE DATA GAP AWD TOLERANCE GAP TO SEE If ( 
114 3*THEY ARE ALL ZEROS, - ECC1 AWD ECC2 ARE NOT CHECKED. 
5116 s*RHWC IS CHECKED TO BE = 0 ( 
5117 
5118 025322 017737 154304 001126 mov @RHWC,SEDDAT 310aDd WORD COUNTER JUST IN CASE 
5119 025330 001401 BEQ 6$ #SHOULD BE = 0 | 
5120 025332 104040 ERROR 40 sRHWC DOES HOT = o AFTER A WRITE 
$121 HEADER AWD DATA IS COMPLETED 
5123 025334 005737 002006 6$: Ts? @eERFLCS sRAVE AWY ERRORS OCCURRED? 
5124 025340 001041 BNE TST60 #;BRANCH IF YES 
5125 025342 004737 042760 JSR PC, @SCHECKE 3CHECK THAT BITS = 1 ( 
5126 025346 104401 062145 TYPE ,CPHALT sCANNOT CONTINUE TESTING IF TREY DON°T 
5127 025352 000000 HALT #STOP THE TEST 
5128 025354 005037 052116 CLR eewecci 3CLEAR ECC ( 
5129 025360 005037 052120 CLR eewecc2 sCLEAR ECC 
51 
5131 d*FILL “REINTO" BUFFER WITH EXPECTED DATA OF ALL 1°S 
5132 
5133 025364 004037 042452 JSR RO, @SCLAREA sPILL REINTO BUFFER 
5134 025370 003154 REINTO >FROM 
5135 025372 004152 REINTO*<255.°?> 370 
5136 025374 177777 WORD 1 3DATA 
5137 025376 004037 042452 JSR RO, @SCLAREA 3PILL REST | 
5138 025402 004154 REINTO*<256.*2> >FROM 
5139 025404 004214 REINTO¢< 272. *?> 370 
5140 025406 000000 0 380474 
5141 
$142 025410 005037 002006 CLR @RERFLCS sCLEAR ERROR FLAG 
5144 3*NOW COMPARE "DISK® BUFFER WITH "REINTO" BUFFER IW CORE 
145 
5146 025414 004037 043430 JSR RO, @ECOMPAR sCHECK | 
5147 025420 003154 REINTO 3COOD BUFFER 
5148 025422 051116 DISK sTEST BUFFER : 
5149 025424 000421 273. 3NUMBER OF WORDS CHECKED | 
5150 025426 025434 . 4s ZRETURN POINT FOR ERROR HEADER 
5151 025430 025440 5¢ pRETURM POINT FOR ERROR DATA 
5152 025432 025444 TST60 ;RETURN FOR GOOD COMPARISON | 
5153 025434 104007 45: ERROR 7 ZREAD ERROR 10 WEXT 
5154 025436 000207 RTS pc sRETURN TO COMPARE 
5155 025440 104010 55: ERROR 10 3WORD NOS 1 TO 256 ARE 32 { 
5156 3DATA WORDS ; 
5157 3WORD WOS 257 AND 258 
5158 PARE ECC WHICH HAVE BEEN ( 
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DZRJGA.P11 29-MAR-76 00:00 157 WRITE HEADER AND DATA 2 
$159 3 ZEROED 
5160 sWORD WOS 259 
5161 #TS DATA GaP 
5162 sWORD HOS 260 TO 273 
5163 JARE TOLERANCE GAP 
—* 025442 000207 RTS Pc dRETURE TO COMPARE 
16° 
5166 
5167 





rT) 








a 
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5168 
5169 
5170 
$171 
$172 
$173 
5174 
5175 
$176 
$177 
5178 
5179 
5180 
5161 
5182 
5183 
5164 
$185 
5196 
5187 
5188 
$189 
5190 
5191 
$192 
5193 
5194 
5195 
5196 
$197 
5198 
$199 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5208 
$209 
5210 
5211 
5212 
$213 
5214 
$215 
5216 
$217 
5218 
$219 
5220 
$221 
$222 
$223 


025444 
025446 
025452 


025460 
025464 
025470 
025474 
025476 
025500 


025504 


025512 
025520 
025524 
025530 
075536 
025542 
025544 


025546 
025554 


025560 
025564 


025570 
025574 
025576 
025600 
025604 
025610 
025612 
025614 


025622 
025626 


29-MAR-76 00:00 


000004 
012706 
012737 


012700 
012701 
012720 
005301 
001374 
004737 


012737 


012737 
005037 
005037 
012737 
004537 
052336 
052346 


012777 
012700 


010077 
012720 


012720 
005020 
005020 
012705 
012720 
005305 
001374 
012777 


004737 
104401 


001000 
000060 


051020 


000460 
000377 


042534 


010000 
000401 
052342 
052344 


000400 
043742 


177374 
002110 


154050 
010000 
000401 
000400 
052525 
000401 


042570 
062145 


002032 


052336 
052340 


052376 


154056 


154022 


MACY11 La tp! 06-08-77 13357 PAGE 118 
WRITE HEADER AND DATA 


s*TEST 60 


3ee 
328 
372 
3ee 
3*e 


TST60: 


1$3 


2$3 


3$3 


SCOPE 
MoV 
nov 


3* THESE 
nov 


Mov 
CUR 
CUR 
MOV 
JSR 
WCYL 
Gcrc 


3*THESE 


MOV 
Mov 


MOV 
CLR 
CLR 
MoV 
MoV 
DEC 
BNE 
MoV 


JSR 
TYPE 


HALT 


WRITE HEADER AND DATA 3 

WRITE CYLINDER © FORMAT 16 BITS PER WORD 

TRACK 1, SECTOR 1, KEY 0, NUMBER OF WORDS 256 

ALTERNATE OWES AND ZEROS (052525) 

ANY ERROR LOGIC INDICATIONS ARE HOT CONCLUSIVE Om FIRST PASS 
BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS) 


@STACK,SP 
STTNO, OSTSTUN 


#SECGAP,RO 


#304.,R1 
#377, RO)> 
R1 


1$ 
PC, CLOISK 


ARE TO BE SETUP 


@PMT22,e8NCYL 


#401, 88VSECTR 
@RUKEYI 
@RUKEY2 
€256.,@8F WORD 
RS, @#CRC 


dRESET STACK 
sTHIS SAVES TEST NUMBER 


sCOUBTER 
sLOAD SIMULATED "DISK" AREA WITH 377 
3 


3 
sTHIS IS USED TO SET UP GENERAL 
sREGISTER CORRESPONDENCE 


POR DISKLESS USE ONLY 


sPOPMAT 22216 BIT WORDS AND 
sCYLIWOER 0 

sTRACK=1, SECTOR=1 

s®EYi=0 

sR EY2=0 

3256 DATA WORDS 

3¢O TO CALCULATE CRC 


ARE REGULAR SETUPS FOR RH11 AND “WRFROM” BUFFER 


#-260.,@RHWC 
@VRFROM,RO 


RO, @RHBA 
@PMT22,(RO)e . 
#401, (RO)o 
(RO) 

(RO) 
$256.,R5 
#052525, (R0)¢ 
RS 

3$ 

#401, @RHOST 


PC, O@GCHECET 
a CPHALT 


3256 DATA WORDS 4 HEADER wORDS 
STHESE TWO INSTRUCTIONS GET 
3ADDR. OF WRFROM INTO RO 

3AND BUS ADDRESS REGISTER 


sPORMAT=16 BIT WORDS 
sCYLINDER=0 

sTRACK=1, SECTOR=1, KEYS=0 
sKEVI=0 

s*EY2=0 

sCOUNTER 

sMOVE ALTERWATE ONES FOR DATA 
;COouUNT 

sBRANCH IF DATA NOT COMPLETE 
sTRACK=1 SECTOR=1 


sCHECK THAT DVA,RDY,DPR,DRY = 1 

3AND THAT NO OTHERS = 1. CANNOT CON- 
STINUE TESTING IF BOTH ARENT TRUE 
3STtoP THE TEST 


LW 
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5224 
$225 
$226 
$227 
5228 
$229 
5230 
$231 
$232 
5233 
5234 
5235 
5236 
$237 
5238 
5239 
5240 
5241 
5242 
5243 
5244 
5245 
5246 
$247 
5248 
5249 
5250 
$251 
$252 
$253 
5254 
$255 
5256 
$257 
5253 
$259 
5260 
5261 
5262 
5263 
5264 
5265 
5266 
5267 
5268 
5269 
5270 
$271 
5272 
5273 
5274 
$275 
5276 
$277 
5278 
5279 


025634 


025640 
025644 
025652 
025656 


025662 
025670 
025672 


025674 
025700 
025702 
025706 
025712 
025714 
025720 


025724 
025730 
025732 
025734 
025736 
025742 
025744 
025746 
025750 


025754 
025760 
025762 
025764 
025766 
025770 
025772 
025774 
025776 
026000 


013711 


005037 
012777 
005077 
004737 


-017737 
001401 
104040 


005737 
001041 
004737 
104401 
000000 
005037 
005037 


004037 
003154 
004152 
052525 
004037 
004154 
004214 
000000 
005037 


004037 
003154 
051116 
000421 
025774 
026000 
026004 
104007 
000207 
104010 


002064 
002006 
010000 


153774 
052162 


153744 


002006 


042760 
062145 


052116 
052120 


042452 


042452 


002006 


043430 


153776 


001126 


4$3 


WRITE HEADER AND DATA 3 


mACY11 ee tet | 06-DEC-77 13357 PAGE 119 


@SURIFOR, @R1 


@SERFLGS 
#PMT22,@RHOF 
Q@RHCA 

PC, @gCOMMHD 


2667 READY FOR WRITE READER 

JAND DATA WITH 62 IR RHCSI 

sCLEAR ERROR FLAG 

SPORMAT BIT=1¢€16 BIT WORDS 

dCYLINDER2O 

SWURITE READER AND DATA INTO "DISK" CORE 


a*IF THE PROGRAW COMES BACK HERE WITHOUT ERROR PRINTOUTS 
d*FROM THE “COMWHD” ROUTINE THAT MEANS ALL HEADER I8 


3**DISK" IS GOOD. 


DATA IS TO BE CHECKED TO SEE 


3s*If If IS ALL 052525 AND WRITE DATA GAP AND 
s*TOLERANCE GAP TO SEE IF THEY ARE ALL ZEROS. 


s*RAWC IS CHECKED TO BE = 0 


@RHWC,$BODAT 
6$ 


SLOAD AND TEST FOR ZERO 

3RHWC SHOULD = 0 

sRaWC DID NOT = O AFTER A URITE 
SHEADER AND DATA WAS COMPLETED 


3*ONLY ECC1 AND ECC2 ARE NOT CHECKED 


tst 
BWE 
JSR 
TYPE 
HALT 
CUR 
CLR 


@FERFLGS 
TST61 

PC, Q#CHECKE 
oCPHALT 


eewecci 
@ewECC2 


SHAVE ANY ERRORS OCCURED? 

s3BRANCH IF YES 

sCHECK THAT BITS = 1 

SCANNOT CONTINUE TESTING IF THEY DON’T 
sStoP THE TEST 

sCLear ECC 

sCLEaR ECC 


s*FILL “REINTO" BUFFER WITH EXPECTED DATA 


JSR RO, @ECLAREA 
RE INTO 
REINTO*<255.*2> 
eWORD $2525 
JSR RO, @SCLAREA 
RE INTO*< 256. *2> 
RE INTOS<272.°2> 
eWoRD 0 
CLR Q#ERFLGS 


SPILL REISTO BUFFER 
3FROR 

270 

sDATA 

aFILL REST 

aFROn 

270 

20474 

SCLEAR ERROR FLAG 


3*NOW COMPARE "DISK" BUFFER WITH “REINTO" BUFFER Iu CORE 


JSR 
REINTO 
DISK 
273. 
4$ 

5$ 
TST61 
ERROR 
RTS 
ERROR 


RO, @SCOMPAR 


7 
Pc 
10 


sCHECK 

26000 BUFFER 

sTEST BUFFER 

JRUMBER OF WORDS CHECKED 
SRETURM POINT FOR ERROR HEADER 
SRETURN POINT FOR ERROR DATA 
SRETURW FOR GOOD COMPARTSON 
SREAD ERROR 10 NEXT 

dRETURN TO COMPARE 

sWORD WOS 1 TO 256 ARE 

sDATA WORDS 


mid 


i id ———— hd Ad Aili ls. Aldine — 
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5280 
$261 
$282 
5283 
5784 
5285 
5296 
5287 
$288 
5289 
5290 
9291 


026002 000207 


WRITE HEADER ANT DATA 


RTS Pc 


: 08-DEC-77 13:57 PAGE 120 


SWORD WOS 257 AND 258 
gARE ECC WHICH HAVE BEEN 
3ZEPROED 

SWORD NOS 259 

31S DATA GAP 

sWORD NOS 260 TO 273 
SARE TOLERANCE GAP 
SPETURN TO COMPARE 
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529? 
5293 
5294 
5295 
5296 
$297 
5298 
5299 
5300 
5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
5310 
$311 
$312 
$313 
5314 
$315 
$316 
$317 
5318 
$719 
5320 
$321 
$322 
$323 
5324 
5325 
$326 
$327 
5328 
5329 
5330 
5331 
5332 
$333 
5334 
5335 
5336 
$337 
5338 
5339 
5340 
$341 
5342 
5343 
5344 
5345 
5346 
5347 


026004 
026006 
026012 


026020 
026024 
026030 
026034 
026036 
026040 


026044 


026052 
026056 
026062 
026066 
026074 
026100 
026102 


026104 
026112 
026116 
026122 
026126 


026132 
026134 
026136 
026140 


026144 
026150 


026154 
026156 


026162 
026166 


29-MAR-76 00:00 


000004 
012706 
012737 


012700 
012701 
012720 
005301 
001374 
004737 


012737 


005037 
005037 
005037 
012737 
004537 
052336 
052346 


012777 
012700 
010077 
012705 
012720 


005020 
005305 
001375 
005077 


004737 
104401 


000000 
013711 


005037 
012777 


001000 
000061 


051020 
000460 
177777 


042534 


010000 


052340 
052342 
052344 
000400 
043742 


177374 
002110 
153512 
000403 
010000 


153500 


042570 
062145 


002064 


002006 
010000 153454 


002032 


052336 


052376 


153520 


MACY11 30(1046) 
T60 WRITE HEADER AND DATA 3 
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33 RIAA AAARAALAARAARAARAARARARARAARAAARARARARRARAAARAAAAARARASAAAARAAAAE 


s*TEST 61 PROGRAM ERROR RACS2 810 

22* WRITE CYLINDER 0, FORMAT 16 GIT PER WORD 

gee TRACK 0, SECTOR 0, KEYS 0, NUMBER OF WORDS 256 OF O°S 
ed WHILE GO BIT IS SET ANOTHER GO IS GIVEN TRIS SHOULD SET 
— PROGRAM ERROR 


33 IX 


187612 


1$: MOV 


3*THESE 


CLR 
CUR 
CLR 
MOV 
JSR 
wcYL 
Gcrc 


3* THESE 


2$3 CLR 


SCOPE 


SSTACK, SP 
#TTNO, @ETSTHM 


#SECGAP,RO 


#304.,R1 
#-1,CRO)e 
RL 


1$ 
PC,CLDISK 


SRESET STACK 
sTHIS SAVES TEST BUNBER 


sPOINTER 

sCOUNTER 

sCLEAR DISK AREA TO ALL ONES. 
* 


3 
sTHTS IS USED TO SET GENERAL 
sPECISTERS 


ARE TO SET UP FOR DISKLESS USE OSLY 


@PMT22,QgNCYL 


@#USECTR 
QF UKEY1 
@RWKEY2 


#256. , @#F NUORD 


RS, eeCRC 


SPORMAT 22216 BITWORDS AND 
sCYLIWDER 0 

SsTRACK=0, SECTOR=0 

sKEVI=0 

sKEY2=0 

3256 DATAWORDS 

3CO TO CALCULATE Cre 


ARE REGULAR SETUPS 


#-260 ee e@RAWC 
SWRFROM,RO 
RO, @RHBA 
#259-,R5 
#FUT22, (RO D> 


(20)* 
RS 


2s 
@RHDST 


PC, @ACHECET 
7CPHALT 


@tWPIFOR, @R1 


Q@#ERFLGS 
#FMT22, @RHOF 


3256 DATA WORDS 4 HEADER WORDS 

sFROM BUFFER "WRFRON” 

3TH BUS ADDRESS 

sCOUNTER 

sFORMAT =16 BIT WORD 

sCYLINDER=0 

sSECTOR=0, TRACK=0,KEYS=0, ALL DATA=0 
sCOUNT 

sBRANCH IF ALL 259 ROT COMPLETE 
3TRACK=0, SECTOR=0 


sCHECK THAT DVA,RDY,DPR,DRY = 1 

3AND THAT HO OTHERS = 1. CANNOT COR- 
sTINUE TESTING IF BOTH AREN°T TRUE 
3STOP THE TEST 


3GET READY FOR WRITE HEADER 
3AND DATA WITH 62 IN RHCS1 

sCLEAR ERROR FLAG 

sFORMAT BIT=1 16 PIT WORDS 
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$348 
$349 
5350 
$351 
$352 
$35? 
5354 
$355 
5356 
$357 
5358 
5359 
5360 


026174 
026200 
026206 
026214 
026216 


026224 
026230 
026236 
026240 
026246 


026250 


29-MAR-76 


005077 
012777 
052777 
000240 
052777 


004737 
032737 
001404 
013737 
104037 


00:00 

153452 
000001 
000001 
000001 


042140 
002000 


001636 


153452 
153424 


153414 


001714 
001122 


PROGRAM ERROR RACS2 810 


CLR @RHCA 3CYLINDER 0 

mov #0MD, @RHMR 3SET DIAGNOSTIC MODE 

BIS #Go, @RHCS1 360 

noP 

BIS #CO, @RHCS1 sTHIS GO SHOULD SET PCE 

JsR PC, @SPUTREG sSAVE REGISTERS 

BIT #PCE,e@8CS1 31S PGE SET 

BEQ 3$ s8RANCH IF GOOD 

MOV @FRHCS2, OFSBDADR | 

ERROR 37 3PGE DID BOT SET WHEN A WRITE 


3WAS ATTEMPTED WITH ONE IN PROGRESS 


cul 
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DZRIGA.P11 


5361 
536? 
5363 
5364 
5365 
5366 


29-MAR-76 00:00 


PROGRAM ERROR RACS2 $10 


3** 
3*e 
gee 
3*0 


zee 
32e 
3** 


THESE TESTS ARE THROUGH THE MAINTAIBABILITY REGISTER - REVR 


TRE SECTOR CAP AWD SYNC BYTE ARE ALWAYS READ AS 
ZEROS AWD 144000 NO MATTER WHAT IS IN THE SIMULATED DISK AREA 
TAGGED SECGAP: AND WSSYEC: 


THE HEADER CONSISTING OF CYLIBDER ADDRESS, SECTOR, 
TRACK AND THE KEYS ARE READ FROM LOCATION 

CYLt, SECTOR:, KEY1:, AND KEY2 AND NOT FROM | 
HEADER: ON SIMULATED DISK 


CrC IS READ FROM SIMULATED DISK LOCATION wCRC: 
HEADER GAP IS ALWAYS READ AS ZEROS HO MATTER 
WHAT TS OW THE SIMULATED DISK AREA 


TRE DATA SYNC IS READ FROM HDWSYR: 
OW SIMULATED DISK 


ALL DATA IS READ FROM SIMULATED DISK DISK: 


33 SLAAAASSSSAAAAAROARAAAAASAAAAAAARARSAARAAAARARAAARERAARARAAAAAAAARAER 
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OZRIGA-P11 29-MAR-76 00:00 T61 PROGRAM ERROR RHCS2 $10 
$383 
5384 
5365 
— ——— 
5368 s*TEST 62 READ HEADER AND DATA 1 
5389 ee READ CYLINDER 0 FORMAT 16 BITS PER WORD 
$390 ined TRACK o, SECTOR o, KEYS 0, 256 WORDS OF 0 
5391 ed AWY ERROR LOGIC INDICATIONS ARE BOT CONCLUSIVE ON FIRST PASS 
$392 = BECAUSE ERROR LOGIC HAS NOT BEEW CHECKED VET (OW FIRST PASS) 
44 pp CMAMAAKeReRReeREAeARASeRereneeeNAeaReRaneeeAeeneenenneenNseene 
5395 026250 000004 TST62: SCOPE 
$396 026252 012706 001000 MOV @STACK,SP sRESET STACK 
ee 026256 012737 000062 002032 mov STTHO,O8TSTHM ZTHIS SAVES TEST BHUNBER 
5398 
5399 
5400 3* SETUP FOR WHAT IS TO BE READ 
$44 3* HEADER CRC IS RESTORED FROM A SUBROUTINE 
$403 026264 012746 000000 MoV #0,-( SP) sDATA TO BE READ 
5404 026270 012705 000400 MOV #256.,R5 sCOUNTER 
5405 026274 012700 051116 mov SDISK,RO SSTART OF STIMULATED DISK DATA 
$406 026300 011620 152 MoV (SP), (RO )* sMOVE IW DATA OW TO SIMULATED DISK 
$407 026302 005305 DEC RS 3scouaTt 
$408 026304 001375 BWE 1s sBRANCH IF 256 ROT COMPLETE 
5409 026306 005726 tst (SP )e 3UNDO -(SP) 
5410 026310 012705 000021 MOV #17.,85 32 ECC woRDS 
$411 31 DATA GAP 
$412 314 TOLERANCE GAP 
5413 026314 005020 2$3 CLR (RO)e sCLEAR ECC, DATA GAP, AND 
5414 026316 005305 DEC RS sTOLERAWCE CAP 
5415 026320 001375 BNE 2$ sBRANCH IF BOT COMPLETE 
5416 
5417 
aoe s*THESE ARE TO SETUP FOR DISKLESS USE ONLY 
$420 026322 012737 010000 047200 MoV #OFMT22,@eCYL 316 BITS PER WORD 
5421 sCYLIMDER 0, FORMAT 16 BITS 
5422 026330 112737 000000 047203 MOVE #0, @8SECOTRe1 ;TRACK 0 
$423 026336 112737 000000 047202 move #0, @#SECOTR sSECTOR 0 
5424 026344 012737 000000 047204 MOV #0, @8KEY1 sKEY1=0 
$425 026352 012737 000000 047206 MoV #0, @SKEY2 sKEY2=0 
5426 026360 012737 000400 047260 Mov #256.,@#DAWORD  7u0. OF DATA WORDS 
5427 026366 005037 047210 CLR eax sTHIS TS A READ COMMAND 
542@ 026372 004537 043742 JSR RS, @gCRC 3G0 TO CALCULATE CRC 
$429 026376 047200 CYL 
5430 026400 051100 wcrc 
$431 
5432 s*THESE ARE REGULAR SETUPS FOR RH11 AND "RETNTO" 
5433 
5434 026402 004737 042534 JSR PC, @#CLDISK SSETUP GCEWERAL RECISTERS en 
5435 026406 012777 177374 153216 MoV #-256.-4.,@°HWC 3256. DATA 4 HEADER WORDS 
$436 026414 012777 003154 153212 MOV #REINTO,@RHPA ;STARTING ADDRESS OF READ BUFFEP 
5437 026422 112746 000000 MOVB #0,-(SP) 31M LOWER BYTE GET SECTOR 
5438 026426 112766 000000 000001 MOVR #0,1(SP) sCET TRACK IN HIGHER BYTE 


mm ee ——— — — —— 
— — — — — — — — — — — — — — — — — — — — — —— —— ——————— a a —— — —— — — — — — 
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5439 026434 
$440 026440 
$441 
$44? 
5443 
$444 026446 
5445 
5446 026452 
5447 026456 
5448 
5449 026462 
5450 
5451 026464 
5452 026470 
5457 026474 
5454 
5455 
5456 
5457 
$458 
5459 
5460 
5461 
5462 
5463 
5464 
5465 026500 
5466 026506 
5467 026510 
5468 
5469 
5470 
$471 
5472 
5473 
5474 
5475 026512 
5476 026516 
5477 026520 
5478 026524 
5479 026530 
5480 026532 
$481 026536 
$482 026542 
5483 026546 
5484 026554 
5485 026556 
5486 026562 
5487 026566 
54868 026572 
5489 026576 
5490 026600 
5491 026602 
5492 
5493 
5494 


012677 


012777 014000 153202 


005077 


004737 
104401 


013711 
005037 
004737 


017737 
001401 
104040 


005737 
001046 
004737 
104401 
000000 
012700 
012720 
112746 
112766 
012620 
012720 
012720 
012701 
012702 
-010220 
005301 
001375 


153204 


153200 


042570 
062145 


002070 
002006 
047040 


153126 


002006 


042760 
062145 


002110 
010000 
000000 
000000 


000000 
000000 
000400 
000000 


001126 


000001 


20$: 


3$3 


READ HEADER AND DATA 1 


MOV (SP )¢, @RHOST STRACK/SECTOR IW PHDST 
MOV @PMTZ2ZUECI,@RHOF 316 BITS PER WORD 
3ECC CORRECTION INHIBIT 
sBECAUSE ECC IS BOT GOING 
3TO BE CHECKED 


CLR @PHCA sCYLIBDER 0 

JSR PC, OSCHECKT SCHECR THAT DVA,RDY,DPR,ORY = 1 

TYPE oCPHALT 3AND THAT WO OTHERS = 1. CANNOT COR- 
sTINUE TESTING IF BOTA AREN°T TRUE 

HALT sSTOP THE TEST 

“ov @#REFOR, @R1 sPEAD HEADER AND DATA=72 

CUR QPERFLGS sCLEAR ERROR FLAC 

JSR PC, R#COMHD SPREAD HEADER AND DATA 


3*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
3*FROM THE “COMHD™ ROUTINE THAT MEANS SECTOR CaP, 
3*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 

s*SYNC BYTE HAVE COWE BY ABD SYNCS WERE CORRECTLY 

3 *DETECTED. 


a*RHWC TS CHECKED TO BE = 0 AFTER THE READ OPERATION 


MOV @PHWC,SBDDAT 3LOAD AND TEST PHC 
BEQ 20$ sSHOULD = 0 
ERROR 40 sRHWC DOES WOT = 0 AFTER A READ 


sHEADER AND DATA 


s*HEADER AND DATA ARE TO BE CHECKED. 

3*IN CHECKING READ DATA THE BRITE FROM BUFFER 
s**WVRFROM™ IS FILLED WITH EXPECTED DATA AND 
3*COMPARISONS ARE MADE. 


Tst @PERFLGS 3ANV FRRORS ALREADY THERE 

BNE TST63 sPRANCH IPF YES 

JSR PC, @SCHECFE sCHECK THAT BITS = 1 

TYPE aCPRALT SCANNOT CONTINUE TESTING If THEY DON’T 
HALT 3StoP THE TEST 

mov SWRFROM, RO SCETTING READY TO FILL EXPECTED DATA 
MOV SOUFMT22,(RO)* SCYLINDER 0 

wove #0,-(SP) 31m LOWER BYTE GET SECTOR 

MOvB #0,1(¢SP) sGET TRACK IM HIGHER BYTE 

MOV (SP )*,(RO)* aGET TRACK/SECTOR IN BUFFER 

MoV #0,( RO) sFEY1 IW BUFFER 

Mov #0,(RODe sKEY2 IN BUFFER 

MoV #256.,81 sDATA WORD COUNTER 

Mov #0,F2 sDaTAa 

MOV R2,(ROD* sDATA INTO BUFFER 

DEC R1 sCoust el 
BRE 3$ SBRANCH IF 256 HOT DONE 


3*NOW READ TATA BUFFER WILL BE CHECKED 


— — — — — — — — — 
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5495 
5496 
$497 
$498 
$499 
5500 
5501 
5502 
5503 
5504 
5505 
$506 
5507 
5508 
5509 
$5510 
$511 
$512 


026604 
026610 
026612 
026614 
026616 
026620 
026622 
026624 
026626 
026630 


026632 


29-MAR-76 00:00 


004037 043430 
002110 
003154 
000404 
026624 
026630 
026634 
104004 
000207 
104005 


000267 


READ HEADER AND DATA 1 | 


JSR RO, RECOMPAR CHECK 

WRFPOM 36000 BUFFE®? | 
RELNTO sTEST BUFFER 

4+256. SRUMBER OF WORDS CHECKED 

4s SRETURE POINT FOR ERROR HEADER | 
56 SRETUPE POINT FOR ERROR DATA 

TST63 sRETURH FOR GOOD COnPARISON : 
ERROR 4 SREAD BEXT ERROR | 
RTS Pc sRETURN TO “CONPAR® 

ERROR 5 3WORD BOS 1 TO 4 ARE 


sREADER WORDS 
3S TO 260 ARE DATA WORDS 
RTS Pc sRETURE TO “CONPAR® 


Gil 





—<<_-----»ESOLO — 
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§513 

551 4 3 3 SKRARARSHAARSRRARAAAAAKRSATHRARAAKARAHHARARAHRARARAAAAARAKAAtekeneneaene 

§515 s*TEST 63 READ HEADER AND DATA 2 

§516 3*4 READ CYLINDER o FORMAT 16 BITS PER WORD 

5517 3*e TRACK 0, SECTOR 1, KEYS 0, 256 WORDS OF 177777 

5518 3ee AWY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE OW FIRST PASS 

5519 see BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (OW FIRST PASS) 

s 

—3 3 3 RASATKSKSKRAASRAAKARASARARAKRATARSTRARSRAREHHAHAReASAteaneneseneasesese 

5522 026634 000004 TST63: SCOPE 

5523 026636 012706 001000 MOV @STACK,SP sRESET STACK 

esas 026642 012737 000063 002032 nov @TTHO,@#TSTNM ZTHIS SAVES TEST NUMBER 

5526 

5827 3* SETUP FOR WHAT IS TO RE READ 

Aged 3* HEADER CRC IS RESTORED FROM A SUBROUTINE 

5530 026650 012746 177777 mov #-1,-(SP) sD0ATA TO BE READ 

5531 026654 012705 000400 MoV #256.,85 sCOUNTER 

5532 026660 012700 051116 Mov #DISK,RO 3START OF STIMULATED DISK DATA 

5533 026664 011620 1$: MoV CSP), (RO De sMOVE IW DATA OW TO SIMULATED DISK 

5534 026666 005305 DEC RS scouNt 

5535 026670 001375 BRWE is sPRAUCH IF 256 NOT COMPLETE 

5536 026672 005726 ts? (SP)¢ 3UND0 -(SP) 

5537 026674 012705 000021 woV #17-.9R5 32 Ecc worDS 

5538 31 DATA GaP 

5539 314 TOLERANCE GAP 

5540 026700 005020 2$3 CLR (RO Do sCLEAR ECC, DATA GAP, AND 

5541 026702 005305 DEC RS STOLERAWCE GAP 

5542 026704 001375 BNE 2$ sPRANCH IF ROT COMPLETE 

5543 

5544 

5545 3*THESE ARE TO SETUP FUR DISKLESS USE ONLY 

5546 

5547 026706 012737 010000 047200 Mov @OUFMT22,@gCYL 316 BITS PER WORD 

5549 SCYLINDER 0, FORMAT 16 BITS 

5549 026714 112737 000000 047202 Movs #0,@@SECOTR*+1  3TRACK O 

$550 026722 112737 000001 047202 MOVB #1, %#SECOTR sSECTOR 1 

5551 026730 012737 000000 047204 MoV #0, Q@KEY1 3KEY1=0 

555? 026736 012737 000000 047206 Mov #0, @8KEY2 sKEY2=0 

5553 026744 012737 000400 047260 MOV #256.,38DAWORD 380. OF DATA WORDS 

5554 026752 005037 047210 CLR enx 3THIS IS A READ COMMAND 

5555 076756 004537 043742 JSR RS, @#CRC 360 TO CALCULATE CRC 

5556 026762 047200 cYL 

5557 026764 051100 were 

5558 

5559 S*THESE ARE REGULAR SETUPS FOR RH11 AND “RETHTO" 

5560 

5561 026766 004737 042534 JSR PC, @#CLDISK 3SETUP GENERAL REGISTERS 

$562 026772 012777 177374 152632 MOV #-256.-4.,@PHWC 3756. DATA 4 HEADER WORDS 

5562 027000 012777 003154 152626 MOV #REINTO,@RHBA  3STARTING ADDRESS OF READ BUFFER 

5564 027006 112746 000001 Move #1,-(SP) 31M LOWER BYTE GET SECTOR 

$565 027012 112766 000000 000001 “ove #0,1( SP) 3GET TRACK IN HIGHER BYTE 

5566 027020 012677 152620 MOV (SP )¢,@RHDST sTRACK/SECTOR IN RHDST 

5567 027024 012777 014000 152616 MOV SPMT2720ECT,@RHOF 316 BITS PER WORD 

5569 3ECC CORRECTION INHIBIT 


— — — — — —— — — — —— — — — — —— — — — — — 
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5569 
5570 
$571 
5572 
5573 
5574 
$575 
5576 
$577 
$578 
5579 
$580 
$581 
$582 
5533 
5584 
558s 
$586 
5587 
5568 
5589 
$590 
$591 
$592 
$593 
5594 
5595 
5596 
$597 
5598 
5599 
5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 
5609 
5609 
5610 
5611 
561? 
5613 
5614 
$615 
5616 
5617 
5618 
5619 
5620 
$621 
$622 
9623 
5624 


027032 


027036 
027042 


027046 


027050 
027054 
027060 


027064 
027072 
027074 


027076 
027102 
027104 
027110 
027114 
027116 
027122 
027126 
027132 
027140 
027142 
027146 
027152 
027156 
027162 
027164 
027166 


027170 
027174 
027176 


29-MAR-76 00:00 


005077 


004737 
104401 


013711 
005037 
004737 


017737 
001401 
104040 


005737 
001046 
004737 
104401 
000000 
012700 
012720 
112746 
112766 
012620 
012720 
012720 
012701 
012702 
010220 
005301 
001375 


004037 
002110 
003154 


152614 


042570 
062145 


002070 
002006 
047040 


152542 


002006 


042760 
062145 


002110 
010000 
000001 
000000 


000000 
000000 
000400 
177777 


043430 


001126 


000001 


252 


READ HEADER AND DATA 2 


SBECAUSE ECC IS NOT GOING 
270 BE CHECKED 
CLR @RHCA sCYLIWDER 0 


JSR PC, RECHECKT SCHECK THAT DVA,RDY,DPR,DRY = 1 
TYPE @CPHALT 3AND THAT NO OTHERS = 1. CANNOT COR- 
sTINUE TESTING IF BOTH AREN’T TRUE 


HALT 3SToOP TRE TEST 

MoV Q@#REFOR, BRI sREAD HEADER AND DATA=72 
CLR @#ERFLGS 3CLEAR ERROR FLAG 

JSR PC, @8COMHD JREAD HEADER AND DATA 


3*IF THE PROGRAM COMES PACK HERE WITHOUT ERROR PRINTOUTS 
3*FROW THE “COMHD™ ROUTINE THAT MEANS SECTOR CAP, 
s*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP ABD 

3*SYNC BYTE HAVE CONE BY AND SYNCS WERE CORRECTLY 
s*DETECTED. 


a*RAWC TS CHECKED TO SE = 0 AFTER THE READ OPERATION 


“ov @RHUC,SPODDAT 3LOAD AWD TEST RuWC 
BEQ 20$ 3SHOULD = 0 
Eraork 40 aRHVC DOES NOT = O AFTER A READ 


SHEADER AND DATA 


S*HEADER AND DATA ARE TO BE CHECKED. 

3*IN CHECKING READ DATA THE WRITE FROM BUFFER 
3**WREROM™ IS FILLED WITH EXPECTED DATA AND 
s*COMPARISONS ARE MADE. 


Ttst QPERFLGS JANY ERROPS ALREADY THERE 

BNE TST64 sPRANCH IF YES 

JSR PC, @RCHECKE sCHECK THAT BITS = 1 

TYPE /CPHALT SCANNOT CONTINUE TESTING IF THEY DON’T 
HALT sSTOP THE TEST 

MoV #WRFROM, RO sGETTING READY TO FILL EXPECTED DATA 
MoV GONFMT22,(RO)* SCYLINDER 0 


move #1,-(SP) 
nuove #0,1(SP) 


31M LOWER BYTE GET SECTOR 
sCET TRACK TH HIGHER BYTE 


MOV (SP )@, (RO Do sCET TRACK/SECTOR IN BUFFER 
MoV #0,(RO)* SEY. IW BUFFER 

MOV #0, (RO) sFEY2 IN BUFFER 

MOV #256. ,R1 sDATA WORD COUNTER 

Mov #-1,R2 DATA 

MoV R2,(RO)* sDATA INTO BUFFER 

DEC R1 sCOUNT 

BNE 3$ SBRANCH IF 256 NOT DONE 


3*NOW READ DATA BUFFEP WILL BE CHECFED 


JSR RO, ASCOMPAR sCHECK 
wRFROW 3CO0D BUFFER 
REINTO sTEST BUFFER 


til 
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$625 
5626 
5627 
5628 
5629 
5630 
$631 
5632 
5633 
5634 
5635 
5636 
5637 
5638 


027200 
027202 
027204 
027206 
027210 
027212 
027214 


027216 


29-MAR-76 00300 


000404 
027210 
027214 
027220 
104004 
000207 
104005 


000207 


4$s 
S$: 


READ HEADER AND DATA 2 
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qa? 


ec 


sNUMBER OF WORDS CHECKED 
SRETURH POINT FOR ERROR HEADER 
sRETURH POINT FOR ERROR DATA 
SRETURN FOR GOOD COMPARISON 
SREAD WEXT ERROR 

dRETURE TO “CONPAR® 

sWORD HOS 1 TO 4 ARE 

SHEADER WORDS 

35 TO 260 APE DATA WORDS 
sRETURD TO "CONPAR™ 
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DZRIGA.P11 29-MAR-76 00:00 763 READ HEADER AND DATA 2 
5639 
5640 XXXXXXXXXXXXXXIXX 
5641 s*TEST 64 READ HEADER AND DATA 3 
564? — READ CYLINDER 0 FORMAT 16 BITS PER WORD 
5643 — TRACK 1, SECTOR 1, KEYS 0, 256 WORDS OF 052525 
5644 ge ANY ERROR LOGIC INDICATIONS ARE WOT CONCLUSIVE OW FIRST PASS 
—9 — BECAUSE ERROR LOGIC HAS WOT BEEW CHECKED YET con FIRST PASS) 
5647 XXXXXXXXVEVEVVXXXXXXXX 
5648 027220 000004 TST64: SCOPE 
5649 027222 012706 001000 MoV #STACK,SP SRESET STACK 
5650 027226 012737 000064 002032 ov @TTWO,QSTSTNMN  ZTHIS SAVES TEST NUMBER 
$651 
5652 
$653 3* SETUP FOR WHAT IS TO BE READ 
— 3* HEADER CKC IS RESTORED FROM A SUBROUTIBE 
5 
$656 027234 012746 052525 Mov $052525,-(SP)  ,DATA TO BE RFAD 
5657 027240 012705 000400 Mov #256.,R5 sCOUNTER 
5658 027244 012700 051116 Mov #01 SK,RO sSTART OF STMULATED DISK OATA 
5659 027250 011620 1$: Mov CSP), ( ROD] sMOVE IN DATA ON TO SIMULATED DISK 
$660 027252 005305 DEC RS scOURT 
5661 027254 001375 BNE 1$ sBRANCH IF 256 NOT COMPLETE 
5662 027256 005726 Tst (SP) 3UNDC -( SP) 
5663 027260 012705 000021 Mov €17.,R5 32 ECC woRDS 
5664 31 DATA GaP 
5665 314 TOLERANCE GaP 
$666 027264 005020 2$3 CLR CRODe sCLEAR ECC, DATA GAP, AND 
5667 027266 005305 DEC RS sTOLERARCE CAP 
— 027270 001375 BNE 2s sBRANCH IF NOT COMPLETE 
$66 
5670 
—9 2*HEsE ARE TO SETUP FOR DISKLESS USE ONLY 
? 
5673 027272 012737 010000 047200 MoV SONFMNT22,A8CYL 316 BITS PER WORD 
5674 sCYLINDER 0, FORMAT 16 BITS 
5675 027300 112737 000001 047203 MOVB #1,@8SECOTR+1  ;TRACK 1 
5676 027306 112737 000001 047202 MovR #1, @¢SECOTR 3SFCTOR 1 
5677 027314 012737 000000 047204 MOV #0, aur cv i sKEY1=0 
5678 027322 012737 000000 047206 Mov #0,@8KEY2 sKEY2=0 
5679 027330 012737 000400 047260 Mov #256.,@80AW0RD 380. OF DATA WORDS 
5680 027336 005037 047210 CLR aaK sTHIS TS A READ COMMAND 
5681 027342 004537 043742 JSR RS, @8CRC 3G0 TO CALCULATE CRC 
5682 027346 047200 CYL 
5683 027350 051100 were 
56864 
5685 S*THESE ARE REGULAR SETUPS FOR RH11 AND "REINTO" 
5686 
5687 027352 004737 042534 JSR PC, @8CLOISK sSETUP GEWERAL REGISTERS 
$688 027356 012777 177374 152246 MOV #-256.-4.,@PHWC 3256. DATA 4 HEADER wORDS \ 
5689 027364 012777 003154 152242 MOV SREINTO,@RHBA  ZSTARTING ADDRESS OF READ BUFFER Al 
$690 027372 112746 000001 MOVB #1,-(SP) 31N LOWER BYTE GET SECTOR 
5691 027376 112766 000001 000001 move #1,1(SP) sGET TRACK TH HIGHER BYTE 
5692 027404 012677 152234 mov (SP)¢,@PRHDST sTRACK/SECTOR IN RHDST 
5693 027410 012777 014000 152232 MOV SFMT2Z20ECI,@RHOF 316 BITS PER wORD 
5694 sECC CORRECTION INHIBIT 
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5695 
5696 
5697 
5698 
5699 
5700 
$701 
5702 
5703 
5704 
$705 
5706 
$707 
$708 
$709 
5710 
5711 
$712 
5713 
5714 
$715 
$716 
$717 
5718 
$719 
5720 
5721 
$722 
$723 
5724 
$725 
$726 
5727 
5728 
5729 
$730 
$731 
5732 
$733 
5734 
5735 
5736 
$737 
5738 
5739 
5740 
5741 
5742 
$743 
5744 
5745 
5746 
5747 
5748 
5749 
5750 





027416 


027422 
027426 


027432 


027434 
027440 
027444 


027450 
027456 
027460 


027462 
027466 
027470 
027474 
027500 
027502 
027506 
027512 
027516 
027524 
027526 
027532 
027536 
027542 
027546 
027550 
027552 


027554 
027560 
027562 


29-MAR-76 00200 


005077 


004737 
104401 


013711 
005037 
004737 


017737 
001401 
104040 


005737 
001046 
004737 
104401 
000000 
012700 
012720 
112746 
112766 
012620 
012720 
012720 
012701 
012702 
010220 
005301 
001375 


004037 
002110 
003154 


152230 


042570 
062145 


002070 
002006 
047040 


152156 


042760 
062145 


002110 


010000 


000001 
000001 


000000 
000000 
090400 
052525 


043430 


001126 


000001 


T64 


20S: 


READ HEADER AND DATA 3 


CLR Q@RHCA 

JSR PC, QECHECKT 
TYPE @CPHALT 
HALT 

mov @#REFOR, @R1 
CLR @RERFLGS 
JSR PC, @#COMHD 
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sBECAUSE ECC IS WOT GOING 
3TO BE CHECKED 
sCYLIWDER 0 


SCHECK THAT DVA,ROY,DPR,DRY = 1 

SAND THAT HO OTHERS = 1. CANNOT COH- 
STINVE TESTING IF BOTH AREN°T TRUE 
aSTOP THE TEST 


JPEAD HEADER ABD DATA=72 
sCLEAR ERROR FLAG 
SREAD HEADER AWD DATA 


3*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
s*FROM THE “COMHD” ROUTINE THAT MEANS SECTOR GAP, 
a*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AnD 
3*SYNC BYTE HAVE CONE BY AND SYNCS WERE CORRECTLY 


3 *DETECTED. 


a*RAWC IS CHECKED TO BE = 0 AFTER THE READ OPERATION 


MoV QP HWC,$8DDAT 
BEQ 20$ 
ErRoR 40 


sLOAD AWD TEST RAWC 

3SHOULD = 0 

sRHWC DOES NOT = O AFTER A READ 
SHEADER AND DATA 


S*HEADER AND DATA ARE TO BE CHECKED. 
3*IN CHECKING READ DATA THE WRITE FROM BUFFER 
3*°WRFROM® IS FILLED WITH EXPECTED DATA AND 


S*COMPARISONS ARE MADE. 


Ttst @PERFLGS 3ANY ERRORS ALREADY THERE 

BNE TST65 sBRANCH IF YES 

JSR PC, QECHECKE sCHECK THAT BITS = 1 

TYPE @CPHALT SCANNOT CONTINUE TESTING IF THEY DON’T 
HALT 3STOP THE TEST 

Mov @WURFRON, RO sGETTING READY TO FILL EXPECTED DATA 
MOV #ONPMT22,(RO)* SCYLINDER 0 


Movs #1,-(SP) 
MOVE #1,1(SP) 


MoV (SP)¢,(RO)@ 
MOV #0, (RO Do 
MOV #0,(RO)* 
MOV #256.,R1 
MOV #052525,82 
MOV R2, (RO) 
DEC Ri 

BNE 3$ 


318 LOWER BYTE GET SECTOR 
sGET TRACK IM HIGHER BYTE 
2667 TRACK/SECTOR IN BUFFER 
sKEVY1 IW BUFFER 
sFEY2 IN BUFFER 
sDATA WORD COUNTER 

sDATA 
sDATA INTO BUFFER 
scout 
JBRANCH IF 256 NOT DONE 


3*NOW READ DATA BUFFER WILL BE CHECKED 


JSR RO, RECOMPAR 
WREROM 
REINTO 


3CHECK 
26000 BUFFER 
sTEST BUFFER 
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$751 
5752 
5753 
5754 
5755 
5756 
$757 
$758 
$759 
5760 
$761 
5762 
5763 
5764 


027564 
027566 
027570 
027572 
027574 
027576 
027600 


027602 


29-MAR-76 00:00 


000404 
027574 
027600 
027604 
104004 
000207 
104005 


000207 


READ HEADER AND DATA 


4¢256. sNUMBER OF WORDS CHECKED 

4s sRETURW POINT FOR ERROR HEADER 
5$ SRETURN POINT FOR ERROR DATA 
TST65 SRETURN FOR GOOD COMPARTSON 
ERROR 4 sREAD WEXT ERROR 

RTS ec sRETURN TO “CONPAR® 

ErRoR 5 sword BOS 1 TO 4 ARE 


sHEADER WORDS 
35 TO 260 ARE DATA WORDS 
RTS ec dRETURN TO “CONPAR® 


mil 
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5765 
5766 
5767 
5768 
$769 
$770 
$771 
577? 
$773 
5774 
$775 
5776 
$777 
5778 
5779 
5780 
$781 
5782 
5783 
5764 
5785 
5786 
$787 
5768 
5789 
5790 
$791 
$79? 
5793 
5794 
5795 
5796 
5797 
5798 
5799 
5800 
5801 
$802 
5#03 
5804 
5805 
5806 
$807 
5808 
5809 
5810 
5811 
5812 
5813 
58i4 
5815 
5816 
$817 
5818 
5819 
5920 


027604 
027606 


027614 
027620 


027626 
027632 
027634 
027636 


027640 


027646 
027654 
027662 
027666 
027672 
027700 
027706 
027712 
027714 


027716 
027722 
027724 
027726 
027730 
027734 
027742 
027750 
027754 
027762 
027766 
027774 
030002 
030006 


030012 
030014 
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000004 
012737 


012706 
012737 


004037 
051116 
052142 
000000 


012737 


112737 
112737 
005037 
005037 
012737 
012737 
004537 
047200 
051100 


004037 
002110 
003110 
000377 
004737 
012777 
012777 
012746 
112766 
012677 
012777 
012777 
004737 
104401 


000000 
013711 


000065 


001000 
000065 


042452 


010000 


000000 
000000 
047204 
047206 
000400 
000001 
043742 


042452 


042534 
177400 
002110 
000090 
000000 
151656 
010000 
000000 
042570 
062145 


002062 


002032 


002032 


047200 
047203 
047202 


047246 
047210 


151670 
151664 


000001 


151654 
151650 


MACY11 30(1046) 
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Fp Tee eaeeeeerenanaereseaagaenekanensaeneanenenearennaneaneanennenen 


s*TEST 65 


3*e 
37° 
3°? 
3** 


WRITE DATA 


WRITE CYLINDER 0, FORWAT 16 BITS PER WORD 

TRACK 0, SECTOR O, KEYS 0, NUMBER OF WORDS 256 OF 377 

ANY ERROR LOGIC INDICATION IS NOT CONCLUSIVE OW FIRST PASS 
BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED 


FF TAAAAAARAAAAAAAAEHRASAAAAAAAAAARAAARAARAAAAARAHORERAAS TAA AEAeEee 


TST6S: 


SCOPE 
MOV 


JSR 

e WORD 
WORD 
eWOPD 


3* THESE 


CLR 
CLR 
MOV 
MOV 
JSR 
CYL 
were 


#TTNO, @#TSTEM 


#STACK,SP 
#TTNO, eersrtun 


RO, @ECLAREA 
DISK 

TOLGAP +16 

0 


sTHTS SAVES TEST RUMBER 


sRESET STACK 
sTHIS SAVES TEST RUMBER 


sCLEAR SIMULATED DISK 
3FROM 

270 

sDATA 


ARE SETUP FOR DISFLESS USE ONLY 
GOUFMT22,@gCYL;CYLINDER 0 


316 BITS PER WORD 


#0, @#SECOTRe1;TRACK 0 


#0, @BSECOTR 
@#KEYV1 

Q#KEY2 

#256., 2#NOWORD 
#1, 09g% 

RS, e@#CRC 


zSECTOR O 

sFEVi O 

3FEVY2 O 

3NO OF DATA BORDS 
WRITE DATA 

3CO TO CALCULATE cec 


S*THESE APE REGULAR SETUPS 


JSR RO, @#CLAREA 
WRFROW 
WRFROM+< 256. *7> 

377 

JSR PC, @#CLDISK 
MOV #-256., @RAWC 
MOV #WURFROM, @PHBA 
MOV #0,-(SP) 
MOVB #0,1(¢SP) 

MOV (SP)+*, @RHDST 
MOV #FMT22, eRHOF 
MOV #0,@RHCA 

JSR PC, @SCHECKT 
TYPE 7 CPHALT 

HALT 

“ov QPWRIDAT, QR1 


SPILL WRITE BUFFER WITH 377 

3FROM LOCATION 

270 LOCATIUS 

sDATA 

sSETUP GENEPAL REGISTERS 

3256. DATA WORDS 

SSTARTING ADDRESS OF WRITE BUFFER 
3SECTOR O 

sTRACK O 

sSECTOR 0 TRACK 0 

316 BITS PER WORD FORMAT 

sCYLINDER 0 

sCHECK THAT DVA,RDY,DPR,DRY = 1 
3AND THAT NC OTHERS = 1. CANNOT COR- 
STINUE TESTING IF BOTH AREN°T TRUE 
#STOP THE TEST 

sWRITE DATA=60 


Alz 








MNDEC-11-DZRJG-A, RPO04/5/6 DSKLS CONTROLLER TST-PT 1 
29-MAR-76 00:00 


OZRIGA.P11 


$821 
5822 
5823 
5824 
58625 
5826 
$827 
5828 
5829 
5830 
5831 
$832 
5933 
5834 
5835 
5836 
$837 
5638 
5839 
5840 
$841 
5842 
5943 
5844 
5845 
5846 
$847 
5848 
5849 
5950 
5851 
5852 
5853 
5854 
$855 
5856 
$857 
5858 
$859 





030020 005037 002006 
030024 004737 047040 


030030 
030034 
030040 
030042 
030046 
030052 


030056 
030064 
030066 
030070 
030074 
030100 
030104 
030110 
030112 
030114 


030116 
030120 
030122 
030126 
030132 
030136 
030140 
030142 


004737 
005737 
001041 
012700 
012701 
012702 


012737 
020021 
001424 
010037 
014137 
160237 
005737 
001002 
104004 
000401 


104005 
005721 
017746 
042716 
022726 
001402 
005302 
001345 


042140 
002006 


000377 
051116 
000400 


000401 


001124 
001126 
047320 
002006 


151012 
177177 
000200 


047320 


T65 


MACY11 30(1046) 08-DEC-77 13:57 PAGE 134 


WRITE DATA 
CLR @FEPFLGS 
JSR PC, @#COMHD 


sCLEAR ERROP FLAG 
sWRITE DATA 


3*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
s*FROM THE “COMHD™ ROUTINE IT MEANS SECTOR CAP, SYNC BYTE 
S*HEADER, HEADER CRC, HEADER GAP AND SYNC BYTE HAVE CONE BY 
s*AND SYNCS WERE CORRECTLY DETECTED, DATA IS TO BE CHECKED. 


1$: 


2$3 
6452 


3$3 


PC, Q@EPUTREG 
Q@RERFLGS 
TST66 
€377,R0 

#01 SK,R1 
#256.,R2 


sSAVE REGISTERS 

SHAVE AWY ERRORS CCCURED? 
serauch IF YES 

26000 DATA 

sDATA URITTER INTC "DISK" 
sCOUBNTER 


#256.¢1,@8ERWORDJFOR ERROR WORD 


RO,(R1I)o 

38 

RO, @BSCDDAT 
-(R1),@8S8DDAT 
R2, @SERVORD 
wie 

$ 


CRi)¢e 
@SUR,-(SP) 
#177177, (SP) 
@SW07,(SP)* 
TST66 

R2 

1$ 


sCOMPARE GOOD DATA WITH DATA OW DISK 
sBRANCH IF GOOD 

26000 DATA 

3BaD DATA 

sERROR WORD HO 

3ABY ERRORS ALREADY THERE? 

3BRANCH IF YES 


SERROR ON WRITE DATA COMMAND 


sBRAUCH TO AVOID PRINTING NEXT ERROR 


sWORD BO CIVES WORD In ERROR 
3UNDO -(R1) FOR BAD DATA 
2667 SWITCH SETTING 

sFEEP ONLY SWITCH 7 AND 6 
31S 7 SET AND 6 RESET 
sBRAGCH OUT IF YES 

31F MOT COUNT 256 WORDS 
sPRANCH IF 256. NOT DONE 


era 
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5860 
$861 
5862 
$863 
5964 
5665 
5866 
5667 
5868 
5869 
5870 
5871 
$87? 
5873 
5874 
5875 
5876 
$877 
5878 
5879 
59860 
5881 
58862 
5883 
5964 
$885 
5886 
5887 
5888 
$889 
5890 
5891 
5892 
5993 
5894 
5895 
5896 
5397 
5898 
5899 
5900 
5901 
5902 
5903 
5904 
5905 
5906 
$907 
5908 
$909 
$910 
5911 
5912 
$913 
5914 
5915 


030144 
030146 


030152 
030160 
030164 
030166 
030170 


030172 
030176 
030200 
030202 


030204 
030212 
030216 
030224 
030230 
030234 
030242 
030246 
030252 
030254 


030256 
030262 
030266 
030274 
030302 
030306 
030314 
030320 


030326 
030332 
030336 


030342 
030344 
030350 


29-MAR-76 00:00 


000004 
012706 


012737 
004037 
051116 
052114 
177400 


004037 
003154 
004152 
000000 


012737 
105037 
112737 
005037 
00502 

012737 
005037 
004537 
047200 
051100 


004737 
013711 
012777 
012777 
112746 
112766 
012677 
012777 


005077 
004737 
104401 


000000 
005037 
004737 


001000 


000066 
042452 


042452 


010000 
047203 
000001 
047204 
247206 
000012 
047210 
043742 


042534 
002066 
177766 
003154 
000001 
000000 
151324 
014000 


151320 
042570 
062145 


002006 
047040 


002032 


047200 
047202 


047760 


151336 
4151332 


000001 
151322 


MACY11 30(1046) O08-DEC-77 13:57 PACE 135 


WRITE DATA 


s*TEST 66 READ DATA 

3° READ CYLINDERO, FORMAT 16 BITS PER WORD 

3** TRACKO, SECTOR 1, KEYS 0, 10 WORDS OF 177400 

gee ANY ERROR LOGIC INDICATION IS BOT CONCLUSIVE 

ined BECAUSE ERROR LOGIC HAS MOT BEEW CHECKED YET (OW FIRST PASS) 


TST66:2 SCOPE 
MOV 


MoV 
JSR 
WORD 
WORD 
WORD 


JSR 

WORD 
e WORD 
-WOPD 


e* THESE 


MoV 
CLRB 
MOVB 
CLR 
CLR 
MoV 
CLR 
JSR 
CYL 
wcrc 


3*TRESE 


JSR 
mov 
MOV 
MOV 
MOvB 
MOVB 
MOV 
MOV 


CLR 
JSR 
TYPE 


HALT 
CLR 
JSR 


@STACK, SP SRESET STACK 
STTHO,@S8TSTUM ZTHIS SAVES TEST BUMBER 
RO, @BCLAREA sCLEAR SIMULATED DISK 
DISK FROM 

DISK+776 370 

177400 20474 

RO, @SCLAREA sCLEAR READ INTO BUFFER 
REINTO FROM 

REINTOS776 270 

0 3DATA 


ARE TO SETUP FOR DISKLESS USE ONLY 
SPNT22,agCYL sCYLIBDER O 16 BITS PER WORD FORMAT 


@RSECOTRe1 sTRACK 0 

#1, @#SECOTR sSECTOR 1 
eeKEY1 sf EVi=0 
@KEY2 sR EV2=0 


#10.,@8DAWORD 380. OF DATA WORDS 
asx sTHIS IS A PEAD COMMAND 
RS, @#CRC 260 TO CALCULATE CRC 


ARE REGULAR SETUPS 


PC, @SCLDISK sSETUP GEWEPAL REGISTERS 
@#READAT, OR1 3PREAD DATA INTO RHCS1=70 
#-10.,@RAWC 310 DATA WORDS 

SRETHTO,@PHAA  Z;STARTING ADDRESS OF READ BUFFER 
#1,-(SP) 31% LOWER BYTE GET SECTOR 1 

#0,1 (SP) sCGET TRACKO IW UPPER BYTE 


(SP)¢,@RHDST sTRACK/SECTOR IW RHODST 
#PMT2Z2TECT,@RHOF 316 BITS PER wORD 
ZECC CORRECTION IWHIBIT BECAUSE 
sECC ITS MOT CHECKED HERE 


@RHCA sCYLINDER 0 
PC, @SCHECFT sCHECE THAT DVA,RDY,DPR,ORY = 1 
@CPHALT 3AND THAT NWO OTHERS = 1. CANNOT CON- 


STINUVE TESTING IF BOTH AREN°T TRUE 
3STOP THE TEST 
@fERFLGS 3CLEAR ERROR FLAG 
PC, @#COMHD 3READ DATA cit 








MNDEC-11-DZRJG-A, RP04/5/6 OSKLS saenenan, erty 1 


DZRJGA.P11 


5916 
$917 
5918 
$919 
$920 
5921 
§922 
5923 
5924 
5925 
5926 
$927 
59298 
5929 
5930 
5931 
5932 
5937 
5934 
5935 
5936 
5937 
$938 
5939 
5240 
5941 
5942 
$943 
5944 
5945 
5946 
5947 
5948 
5949 
5950 
5951 
$952 
$953 
5954 
$955 
5956 
$957 
5958 
5959 
5960 
5961 
5962 
5963 
5964 
5965 
5966 
5967 
5968 
$969 
5970 
5971 


030354 
030360 
030362 
030366 
030370 
030372 


030374 
030400 
030402 
030404 


030406 
030412 
030416 
030422 
030430 
030432 
030434 
030440 
030444 
030450 
030454 
030456 
030460 
030462 


030464 
030466 
030472 
030476 
030502 
030504 
030506 


29-MAR-76 00:00 


005737 
001053 
004037 
002110 
003106 
000000 


004037 
002110 
002132 
177400 


012700 
012701 
012702 
012737 
022021 
001424 
014037 
014137 
160237 
005737 
001002 
104004 
000401 
104005 


022021 
017746 
042716 
022726 
001402 
005302 
001345 


002006 
042452 


042452 


002110 
003154 
000400 
000401 


001124 
001126 
047320 
002006 


150446 
177177 
000200 


047320 1S: 


3$3 


4$3 


MACY11 30(1046) O8-DEC-77 13:57 PAGE 136 
READ DATA 


3*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUT 
3*FROM “COMHD® ROUTINE IN MEANS DATA IS TO BE CHECKED 


3*uOW THE DATA READ INTO “REINTO” BUFFER WILL 

#*BE CHECKED, ONLY 10 WORDS SHOULD BE CHANGED 

3*ALL OTHER WORDS SHOULD REWAIN UNCHANGED 

a*THE “WRFROM™ BUFFER IS FILLED WITH EXPECTED DATA AND CHECKED 


Ttst 
BNE 
JSR 
WREFROM 


Q@FERFLGS 
TST67 
RO, RECLAREA 


WREROM*776 


0 


JSR 
WREROM 


RO, @BCLAREA 


WREPOMs22 


177400 


SHAVE ANY ERRORS OCCURED? 
3;BRANCH IF YES 

sCLEAR BUFFER 

3FROM 

270 

2D47 4 


2FILL EXPECTED DATA 


3*NOW READ DATA BUFFER ITS CHECKED 


CMP 
MoV 
BIC 
cup 
BEQ 
DEC 
BNE 


SWRFROM, RO 
#REINTO,R1 
#256.,R? 
#257.,08ERWORD 
one ae 


-(RO) -@#SCDDAT 
-(R1),@8SBDDAT 
R2, @#ERWORD 
@#ERFLGS 

3$ 

4 

4s 

5 


(RO) *,(R1)¢ 
eswRr,-(SP) 
#177177, (SP) 
#SWO7,( SP) 
TST67 

R2 

1$ 


26000 DATA 

sDATA READ 

sCOURTER 

3FOR ERROR WORD WO 

sCOMPARE GOOD WITH READ BUFFER 
s8RABCH IF GOOD 

26000 DATA 

3BAD DATA 

sERROR WORD UO 

JANY ERRORS ALREADY THERE 

sTF YES BRAWCH DO NOT TYPE HEADER 
ZERROR OB READ DATA 

sPRANCH TO AVOID PRINTING WEXT ERROR 
3WORD WO 1-10 ARE DATA 

3WOPRDS 

SWORD HOS 11-256 HAVE BOT BEEN 
SREAD AWD BUFFER SHOULD BE 
37EPO IF OTHER THAN ZERO 
sWRONG WUMBER OF WORDS HAVE 
SBEEN READ IW THE OISK BOW 
SCONTAINS 177400 ALL 256 
SWORDS BUT ONLY 10 WORDS 
ZSHOULD BE READ IW 


sUNDG -(RO) AND -(R1) FOR ERROR 
sCET SWITCH SETTING 

sFEEP ONLY SWITCH 7 AND @ 

31S 7 SET AWD 6 RESET 

sBRANCH OUT IF YES 

sCOUNT 

3®RANCH IF NOT COMPLETE 





of 
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OZRIGA.P11 
5972 


29-MAR-76 00:00 


MACY11 30(1046) 08-DEC-77 13357 PACE 137 


READ DATA 


€r 
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DZRJIGA.P1L1 29-MAR-76 00:00 766 READ DATA 
$973 
5974 3* 
5975 
5976 IXEIII 
$977 3s*TEST 67 WRITE CHECK HEADER AND DATA 
5978 
5979 ed WRITE CHECK CYLINDER 0, FORMAT 16 BITS PER WORD 
5980 = TRACK 1, SECTOR 1, KEYS 0, 36 WORDS AS SHOWN BELOW 
5981 aie ANY DEVICE LOGIC ERROR ISDICATION IS BOT CONCLUSIVE OW FIRST PASS 
$9862 ee BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED VET (ON FIRST PASS) 
$983 3** OWLY RH WRITE CHECK ERROR (RHCS2 BIT 14) IS TESTED HERE 
5984 Thi P ITT ii iiie tii ii iit iiii tigi ii iiiiay | 
8 4: 030510 000004 TSTt67: SCOPE 
6 
5987 3* DATA TABLE 
5988 3* 20 WORDS OF 070707 
5989 3* THEN 16 WORDS WITH ZERO FLOATING FROM RIGHT 
- §990 3* TO LEFT (EG. 177776,177775,177773 ETC) 
$991 
5992 030512 012706 001000 mov @STACK,SP sRESET STACK 
5993 030516 012737 000067 002032 MOV STTHO,GeTSTHM ;THIS SAVES TEST NUMBER 
5994 
5995 3*SET UP “REINTO" FOR WHAT IS TO BE READ 
$996 030524 012701 003154 mov SREINTO,R1 SSTARTING ADDRESS 
$997 030530 012721 010000 “ov GPNT22,(R1)D¢ SCYLINDER QO FORMAT 16 BIT WORDS 
5998 030534 012721 000401 MOV #401,(R1)* STRACK=1, SECTOR=1 
5999 030540 005021 CLR (R1 De aREYiI=0 
6000 030542 005021 CUR (Ride sFEY2=0 
6001 030544 004037 042452 JSR RO, @@CLAREA SPILL “REINTO" BUFFER 
6002 030550 003164 eWORD 8 REINTOC<4*2> 3FROn 
6003 030552 003232 eWORD REIRTO*<23.°2> 270 
©6004 030554 070707 eWORD 070707 Data 
6095 
60056 030556 012700 177776 MOV #177776, k0 sCGETTING READY TO FLOAT 0 
6007 030562 012701 003234 Mov SRETNTO*<K24.*°2>,R1 STARTING ADDRESS WHERE 177776 GOES 
6008 030566 010021 152 nov RO,(R1)* sMOVE IN FLOATING 0 
6009 030570 000261 SEC sSET CARRY 
6010 030572 006100 ROL RO sCET O ONE BIT LEFT 
6011 030574 103774 Bcs 1s sPRANCH IF 16 NOT DONE 
6012 
6013 030576 004037 042452 JSR RO, @SCLAREA 2FILL THE REST OF BUFFER WITH 0 
6014 030607? 003274 eWORD REINTO*<40.%2> 3FROM 
6015 030604 004152 eWORD REINTO*776 270 
6016 030606 000000 eWORD 0 sDATA 
6017 
rea hs 3*SET UP SIMULATED DISK WITH WHAT IS TO BE READ 
601 
6020 030610 004037 042452 JSR RO, @#CLAREA sFILL "DISK" BUPFER 
6021 030614 051116 eWORD DISK 3FROM 
6022 030616 051164 eWOPD 8 DISK*#<19.*2> 270 
6023 030620 070707 eWORD 070707 3DaTAa 
6024 
6025 030622 012700 177776 MOV #177776,R0 SCETTING READY TO FLOAT ZEROS 
6026 030626 012701 051166 Mov #DISK¢¢€20.*%2>,R1 sSTARTING ADDRESS WHERE 177776 GOES 
6027 030632 010021 252 nov RO, (RLD. sMOVE IN FLOATING 0 


6028 030634 000261 Sec 3SET CARRY 
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OZRIGA.P11 


6029 
6030 
6031 
6032 
6033 
6034 
6035 
6036 
6037 
6038 
$039 
6040 
6041 
6042 
6043 
6044 
6045 
6046 
6047 
6048 
6049 
6050 
6051 
6052 
6053 
6054 
6055 
6056 
6057 
6058 
6059 
6060 
6061 
6062 
6063 
6064 
6065 
0066 
6067 
6068 
6069 
6070 
6071 
6072 
6073 
6074 
6075 
6076 
6077 
6078 
6079 
6080 
6081 
6082 
6083 
6084 


030636 
030640 


030642 
030646 
030650 
030652 


030654 


030660 


.030664. 


030670 
030674 
030700 
030702 
030706 
030710 
030712 


030714 


030716 
030722 
030726 
03073? 
030734 


030736 
030742 
030744 
030746 


030750 
030754 
030760 
030762 
030764 
030766 


030770 
030774 
030776 
031000 


29-MAR-76 00:00 


006100 
103774 


004037 
051226 
052114 
1797777 


004737 


013746 
.052716 
004737 
022637 
001406 
032712 
001402 
104017 
000401 


104017 


012700 
012720 
012720 
005020 
005020 


004037 
002120 
002166 
070707 


012700 
012701 
010021 
000261 
006100 
103774 


004037 
002230 
003106 
000000 


042452 


043260 


001774 
000100 
042140 
001712 


040000 


002110 
010000 
000401 


042452 


177776 
002170 


042452 


3$3 


WRITE CHECK HEADER AND DATA 


ROL RO 2667 0 ONE BIT LEFT 

BCS 2$ sPRANCH IF 16 NOT DONE 

JSR RO, OBCLAREA SPILL TRE REST OF BUFFER WITH 177777 
eWORD DISK+<36.*%2> 3FRON 

eWORD 8 DISKe776 270 

eWORD 1777 20474 

JSR PC, @@URCHHD SWRITE CHECK READER AWD DATA 


sCYLIWDER O, TRACE 1, SECTOR 1 


3*IF THE PROGRAM COMES BACK HERE THEN WRITE CHECK 
3*HAS BEEN COMPLETED WOW WRITE CHECK ERROR BIT IS TO BE TESTED 


MoV @eURIT,-(SP) sGCET UNIT HUMBER 

BIS #1R, (SP) sONLY BIT 6 SHOULD BE SET 

JSR PC, @BPUTREG sSAVE REGISTERS 

CMP (SP)*,@8CS2 SCOMPARE RHCS2 

BEQ 4s sBRARCH IF COOD 

BIT @¥UCE,@R2 SWRITE CHECK ERROR HICH? 

BEQ 3$ sBRANCH IF ERROR BOT OVE TO “WCE 

Error 17 sRHDB CONTAINS FAILING WORD 

BR 48 SRHBA CONTAIBS ADDRESSe2 
30F THE BORD Iu MEMORY FRON 
sTHE DISK THAT DID BOT COMPARE 
sTRE ABD SC WILL BE SET DOVE TO 
3¥CE 

ErrROR 17 3¥CE CORRECTLY WAS BOT SET BUT sort 


SPITS OTHER THAN IR 
34ND UNIT BO. WAS SET 


3*NOW CHECK MEMORY TO SEE IF NOTHING COT DESTROYED 
3*FILL “URFROM" WITH WHAT SHOULD BE IW "REINTO™ THEN CHECK 


woV @WURFROM, RO 3STARTING ADDRESS 
MoV SPMT22,( ROD? sCYLINDER 

mov $401, (RO Do STRACK=1, SECTOR=1 
CLR (RO) sFEVI=0 

CLR CRO) 3FEY2=0 

JSR RO, @SCLAREA sFILL “WRFROM® BUFFER 


eWORD 8 URFROMe<4*2> 3FRON 
WORD WRFROMC<23.*%2> 270 


eWORD 070707 sDaTa 

Mov #177776, R0 sGETTING READY TO FLOAT 0 

nov #¥RFROM¢<24.°%2>,R1 SSTARTING ADDRESS WHERE 177776 GOES 
Mov RO, (R1 Do sMOVE IM FLOATING 0 

SEC 3SET CARRY 

ROL RO sGET O ONE BIT LEFT 

BCS $$ sBRANCH IF 16 BOT DONE 

JsR RO, @SCLAREA sFILL THE REST OF BUFFER WITH 0 

eWORD WRFROM*<40.°2> ZFROM 

eWORD WRFROMCT76 270 


ewORD 0 20474 








ö——r — — — —— ————————⏑ 
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OZRIGA.P11 29-MAR-76 00:00 67 WRITE CHECK HEADER AND DATA 
6085 
6086 3*NOW THE READ BUFFER WILL BE CHECKED 
red 031002 005037 002006 CLR @#ERFLGS SCLEAR ERROR FLAC 
60868 
6089 031006 004037 043430 JSR RO, AECOMPAR sCHECK 
6090 031012 002110 WPFROM 26000 BUFFER 
6091 031014 003154 REINTO sTEST BUFFER 
6092 031016 000490 256. SRUMBER OF WORDS CHECKED 
6093 031020 031026 6$ sRETURN POLWT FOR ERROR HEADER 
6094 031022 031032 7$ SRETURN POINT FOR ERROR DATA 
6095 031024 031040 TST70 sRETURS FOR COOD COMPARISON 
6096 031026 104004 6$: ERROR 4 SREAD BEXT ERROR S 
6097 031030 000207 RTS pc sRETURS TO COMPARISON SUBROUTINE 
6098 031032 104005 7$3 ERROR 5 SDATA IW REINTO BUFFER COT 
6099 SCHANGED AFTER A WRITE 
6100 3CHECK HEADER AWD DATA COMMAED 
6101 SWORD HO CONTAINS THE WORD 
6102 SWUMBER THAT GOT CHANCED 
3*8 031034 000207 RTS Pc SRETURE TO COMPARTSON SUBROUTINE 


6105 031036 000240 10$3 NOP sONLY A BRANCH POINT 
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OZRIGA.P1I1 29-MAR=-76 00:00 767 WRITE CHECK HEADER AND DATA ( 
6106 ' 
6107 FP TAAAKAALARAAAHAAAAAAAAHAAAAHARAAAKAAAAHEAHAAReRAeen eeeneenatece ( 
6108 s*TEST 70 WRITE CHECK DATA 
6109 
6110 zee WRITE CHECK DATA CYLIWOER 0 FORMAT 16 BITS PER WORD ( 
6111 zee TPACK 1, SECTOR 1, KEYS 0, 32 WORDS OF Data 
6112 3ee ANY DEVICE LOGIC ERROR INDICATIONS ARE WOT CURCLUSSVE OW FIRST PASS 
6113 3#e BECAUSE ERROR LOGIC HAS NOT YET (ON FIRST PASS) BEER CHECKED ( 
6114 zee ONLY RH WRITE CHECK ERROR IS TESTED 
6115 
sake PP SAA AAS AA SRAK AKASAKA ( 
<TH 031040 000004 TST70: SCOPE 
611 
6119 s*OATA TABLE ( 
6120 s*TOTAL OF 32 WORDS CONSISTING OF 
6121 3*16 WORDS OF FLOATING OWES (EG. 1, 2, 4, 10) 
6122 3*16 WORDS OF FLOATING ZEROS (EG. {9570 177775) ( 
6123 
6124 
6125 031042 012706 001000 MOV @STACK,SP pRESET STACK ( 
6126 031046 012737 000070 002032 “ov @TTNO,@#TSTNM  ZTHIS SAVES TEST NUMBER 
6127 
6128 a*SET UP “REINTO" FOR WHAT IS TO BE READ ( 
6129 
6130 031054 012700 000001 MoV #1,R0 sGETTING READY TO FLOAT 1 
6131 031060 012701 003154 MOV @REINTO,R1 SSTARTING ADDRESS WHERE 1 GOES ( 
613? 031064 010021 1$: MOV RO,(R1IDo zvort FLOATING 1 
6133 031066 006100 ROL RO 3GET 1 OWE BIT LEFT 
6134 031070 103375 Bcc 18 sBRLUCH IF 16 BOT DONE ( 
6135 031072 012700 177776 uovV #177776, R0 SGETTING READY TO FLOAT 0 
6136 031076 012701 003214 MoV #REINTO*<16.°%2>,R1 ;STI7TING ADDRESS WHERE 177776 GOES 
6137 031102 010021 2$: MOV RO, (R1 De gMOVE IW FLOATING 0 ( 
613% 031104 000261 SEC 3SET CARRY 
6139 031106 006100 ROL RO 3CET O ONE PIT Lert 
6140 031110 103774 Bcs 2s 3BRANCH IP i6 NOT DONE { 
6141 
6142 031112 004037 042452 JSR RO, @ECLAREA FILL FEST OF BUFFER WITH 1 
6143 031116 003254 eWORD REINTO*<32.%2> 3FROM ( 
6144 031120 004152 eWORD REINTO*776 370 
22 031122 000001 ewOoRD 1 sWITH DATS 
614 
6147 3*SET UP SIMULATED DISK WITH WHAT IS TO BE READ 
6148 
6149 031124 012700 000001 MOV #1,R0 sGETTING READY TO FLOAT 1 { 
6150 031130 012701 051116 MOV S0ISK,R1 SSTARTING ADORESS WHERE 1 GOES 
6151 031134 010021 3$3 mov RO,(R1D© sMOVE FLOATING 1 
6152 031136 006100 ROL RO sGET 1 ONE BIT LEFT ( 
22 031140 103375 Bcc 3$ sBRANCH IF 16 NWOT DONE 

154 

6155 031142 012700 177776 MoV #177776,k0 sCETTING READY TO FLOAT 0 { 
6156 031146 012701 051156 MOV #O1SK¢<16.°%2>,R1 3STARTING ADDRESS WHERE 177776 GOES 
6157 031152 010021 4S: MOV RO,(R1)* 3MOVE FLOATING 0 
6159 031154 000261 SEC SET CARRY { 
6159 031156 006100 ROL RO sGET O ONE BIT LEFT 
6160 031160 103774 Bcs 4s sBRANCH IF 16 NOT DONE 


6161 
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OZRJGA.P11 29-MAR-76 00:00 WRITE CHECK 

6162 031162 004037 042452 JSR RO, @SCLAREA SPILL REST OF BUFFER WITH 0 
6162 031166 051216 eWORD DISKe<32.°2> 3 FROM 
6164 031170 052114 eWORD DISK+*776 270 
6165 031172 000000 WORD 0 aWITH DATA 
6166 
6167 031174 004737 043572 JSR PC, @GURCHDA sWRITE CHECK DATA 
6168 sCYLIWDER 0, TRACK 1, SECTOR 1 
6169 SKEYS 0, 32 WORDS. 
6170 
6171 #*IF THE PROGRAW COMES BACK HERE THEN WRITE CHECK 
—* *uas SEEN COMPLETED WOW WRITE CHECK ERROR BIT IS TESTED 
6174 031200 013746 001774 MoV esUNIT,-(SP) sCET UNIT NUMBER 
6175 031204 052716 000100 BIS IR, (SP) sONLY BIT 6 SHOULD BE SET 
6176 031210 004737 042140 JSR PC, OSPUTREG sSAVE REGISTERS 
6177 031214 022637 001712 CMP (SP)+,@9CS2 sCOPPARE RHCS2 
6178 031220 001407 BEQ 6$ sBRANCH IF GOOD 
6179 031222 032737 040000 001712 BIT SuCE, @gCS2 sWRITE CHECK ERROR HICH? 
6180 031230 001402 BEQ $$ sBRANCH IF ERROR NOT DUE TO “WCE 
6181 031232 104017 ERROR 17 sRHOB CONTAINS FAILING WORD 
6182 031234 000401 BR 6$ sRHBA CONTAINS ADDRESS¢2 
6183 30F THE WORD IN MEMORY FROM 
6184 STHE DISK THAT DID ROT COMPARE 
6185 3TRE AND SC WILL BE SET DUE TO WCE 
6196 031236 104017 S$: ERROR 17 3WCE WAS CORRECTLY NOT SET 
6187 s8UT SOWE BITS OTHER THAR 
— ꝛ21R AND UNIT RO. WERE SET 
6 
6190 3*WOW CHECK MEMORY TO SEE IF ANYTHING GOT DESTROYED 
pe! S*FILL “WRFROM" WITH WHAT SHOULD BE IW REINTO THER CHECK IT 
6193 031240 005037 002006 6$: CLR Q#ERFLGS SCLEAR ERROR FLAG 
6194 031244 012700 000001 Mov #1,R0 SGETTING READY TO FLOAT 1 
6195 031250 012701 002110 Mov SWRFROM,R1 SSTART ADDRESS WHERE 1 GOES 
6196 031254 010021 7$3 mov RO, (R1)o sMOVE FLOATING 1 
6197 031256 006100 ROL RO sCET 1 OWE BIT LEFT 
save 031260 103375 Bcc 7$ sPRANCH IF 16 NOT DONE 
6200 031262 012700 177776 MOV #177776,k0 sGETTING PEADY TO FLOAT 0 
6201 031266 012701 002150 MoV @WREROM¢<16.°%2>,R1 ZSTARTING ADDRESS WHERE 177776 GOES 
6202 0731272 010021 1052 MOV ss RO, (RI) sMOVE IN FLOATING 0 
6203 031274 000261 SEC sSET CARRY 
6204 031276 006100 ROL RO sGET 0 ONE BIT LEFT 
— 031300 103774 BCS 10$ JRRANCH IF CARRY SET 

06 
6207 031302 004037 042452 JSR RO, @@CLAREA sFILL REST OF BUFFER WITH 1 
6208 031306 002210 eWORD WRFROM¢¢<32.%2> ZFKOM 
6209 031310 003106 WORD WRFROWST776 3T0 
foe 031312 000001 eWORD 1 sWITH DATA 
of 3*NOW THE READ BUFFER WILL BE CHECKED 

1 
6214 031314 004037 043430 JSR RO, @ECOMPAR sCHECK 
6215 031320 002110 WRFROM 26000 BUFFER 
6216 031322 003154 RE INTO sTEST BUFFER 
6217 031324 000400 256. SNUMBER OF WORDS CHECKED 


5 
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6218 
6219 
6220 
6221 
6222 
6223 
6224 
6225 
6226 
6227 
6228 
6229 
6230 
6231 
6232 
6233 
6234 


031326 
031330 


031332 
031334 


031336 
031340 


031342 
031344 


29-MAR=-76 00:00 


031334 
031340 


031346 
104004 


000207 
104005 


000207 
000240 


4 


1152 
1252 


13$:% 


WRITE CHECK DATA 


11$ SPETURM POINT FOR ERROR HEADER 
12$ JRETURH POINT FOR ERROR DATA 
tst71 SRETURH FOR GOOD COMPARISON 
ERROR 4 SREAD BEXT ERROR 5S 

RTS pc SRETURN TO COMPARTSON SUBROUTINE 
ERROR 5 sDATA IW REINTO BUFFER COT 


SCHANGED AFTER A WRITE 
sCHECK DATA COMMAND 
SWORD HO CONTAINS TRE WORD 
sNUMBER THAT COT CHANGED 
RTS Pc SPETURE TO COMPARTSON SUBROUTINE 


uoP JONLY A BRANCH POINT 


ian 
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6235 
6236 
6237 
6238 
6239 
6240 
6241 
6242 
6243 
6244 
6245 
6246 
6247 
6248 
6249 
6250 
6251 
6252 
6253 
6254 
6255 
6256 
6257 
6258 
6259 
6260 
6261 
626? 
6263 
6264 
6265 
6266 
6267 
6263 
6269 
6270 
6271 
6272 
6273 
6274 
6275 
6276 
6277 
6278 
6279 
6280 
62861 
6282 
6283 
6284 
6285 
6286 
6287 
6288 
6289 
6290 


031346 


031350 
031354 
031362 
031366 
031372 


031376 


031400 


031404 
031410 
031414 
031420 
031424 
031430 


031434 
031440 
031444 


031452 
031460 


031464 
031466 
031472 
031500 
031506 
031510 
031514 
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000004 


012706 
012737 
004737 
004737 
104401 


012700 


013720 
012720 
013720 
012720 
013720 
012720 


013704 
013705 
012737 


012737 
012700 


012002 
012701 
052777 
013777 
010112 
004737 
120537 


001000 
000071 
042534 
042570 
062145 


003154 


001642 
000000 
001646 
000000 
001654 
000000 


001656 
002016 
031472 


000003 
003154 


000001 
000040 
001774 


042140 
001732 


002032? 


001110 
001200 


150136 
150130 


WRITE CHECK DATA 


eSBTTL ERROR BIT FUNCTIONAL TESTS 


pp eMeeeareasaaagenaeeeearagrarararanengeaanangananeenareneneneeee 


s*TEST 71 ATTENTION WITH ERROR TEST 

= THIS TESTS THE SETTING OF ATA BIT BOTH TN THE RHAS 

— AND THE RHDS1 REGISTERS WITH THE SETTING OF EACH 

es ERROR BIT OW THE THREE ERROR REGISTERS. 

= IW EACH OF THE ABOVE CASES ERR IN RHDS1 SHOULD 

= ALSO SET. 

gee "GO" SHOULD CLEAR ERR, ATA IM RFDS1 AND RHAS BUT HOT ERROR REC. 

pe PUTTING “1° IN RHAS DRIVE POSITION CLEARS DRIVE BIT IW ATA IN ABDSI 
see UPPER BYTE OF RAAS TS INVALIBD 


PP TAAAMAAARAAAAARAAARAHHAHAAAAAAAHAKRAORA 


TST7i: SCOPE 


MoV @STACK,SP SRESET STACK 

NOV STTNO, QSTSTUM  ZTHIS SAVES TEST HUMBER 

JSR PC, @BCLDISK sCLEAR DISK REGISTERS 

JSR PC, OSCHECKT sCHECK THAT DVA,ROY,DPR,DRY = 1 


TYPE eCPHALT SAND THAT WO OTHERS = 1. CANNOT COR- 


STINUE TESTING IF BOTH ARENT TRUE 


HALT 3STOP THE TEST 
Mov @PREINTO,RO sBUFFER STARTING FOR 3 ERROP 
sREGISTERS 
MOV @FRHER1,(RO)* ZRHERI STORED IN RETNTO 
MOV #0, (RO)+ sBITS BOT TO-BE CHECKED IN RHERL 
MoV @#RHERZ,(RO)®  ZPHER2 STORED IN RETNTOS4 
MoV #0, (RODe sBITS NOT TO BE CHECKED IW RHER2 
MOV QFRHERZ,(RO)*  Z;RHERS STORED IW RETNTOC10 
MOV #0,(RO)+ sBITS WOT TO BE CHECKED IN RHERI 
MOV @#RHAS,R4 aR4 HAS RHAS 
MOV @SATTENT, RS 3P5 HAS ATA BIT IN RHAS 
MOV 62S, @#SLPERR STHAT SHOULD SET WITH ERROR 
SRETURN POINT TO ERROR 

MoV 83, 08S TMP1 sERROR REGISTER COUNTER 
MOV SRETNTO,RO sREGCISTER BUFFER POINTER 

152 MOV (RO )%,R2 3R2 HAS ADDRESS OF ERROR REC 
Mov #BITO,R1 981 WILL HAVE BIT UNDER TEST 

2$3 BIs #CLR, @RHCS2 sCLEAR RHCS2 
MOV QRUNIT,@RHCS2 ZREINSTATE UNIT WO. 
Mov R1,@0R2 sSET ERROR BIT 
JSR PC, BSPUTREG 3READ AWD SAVE REGISTERS 


sONLY THE BIT IN RS SHOULD BE 
sSET IM RAAS 


CMPB RS, @6AS 


o> = 
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6291 
6292 
6293 
6294 
6295 
6296 
6297 
6298 
6299 
6300 
6301 
6302 
6303 
6304 
6305 
6306 
6307 
6308 
6309 
6310 
6311 
6312 
6713 
6314 
6315 
6316 
6317 
6318 
6319 
6320 
6321 
6322 
6323 
6724 
6325 
6326 
6327 
6328 
6329 
6330 
6331 
6332 
6333 
6334 
6335 
6336 
6337 
6338 
6339 
6340 
6341 
6342 
6343 
6344 
6345 
6346 


031520 
031522 


031524 
031530 
031534 
031540 
031542 


031544 
031552 
031556 
031560 
031562 
031566 
031572 
031600 


031602 
031606 
031612 
031616 
031620 


031622 
031624 
031626 
031630 
031632 


031634 
031636 
031642 


031644 
031650 
031656 
031662 
031670 
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001401 
104020 


013746 
042716 
022726 
001401 
104020 


012777 
004737 
020112 
001410 
010237 
010137 
013737 
104001 


013746 
042716 
022726 
001401 
104020 


006301 
103403 
031001 
001374 
000717 


005720 
005337 
001310 


004737 
012737 
012714 
013777 
004737 


001736 
001100 
140600 


000001 
042140 


042204 
001124 
001712 


001736 
001100 
140600 


001200 


042534 
031644 
177777 
002016 
042140 


150066 


001126 


001110 
147766 


T71 


4$3 


5$3 


— — — — — — — — — — — — — 
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ATTENTION WITH ERROR TEST 


3$ sLOOK @ anosi IF COOD 

20 sWITH THE SETTING OF ONE 
JERROR BIT IN AN ERROR 
dRECISTER, THE CORRESPONDING 
sRHAS BIT DID NOT SET 


@#0S1,-(SP) 2687 RHDS1 
#VVIPROG,(SP) jRENOVE VY AND PROG 
SATALERRIDPRIDRY,(SP)¢; THESE BITS PLUS VY SHOULD BE IW RHDSI 
4s sCHECK °GO° BEXT, IF THIS WAS OK 
20 SWITH THE SETTING OF ONE 

sERROR BIT, COMPOSITE ERROR 

30R ATTENTION ACTIVE, OR 

sONE OF THE OTHER 

SPERMANENT BITS DID NOT SET 


#60, @RHCS1 3sGIVE u0-0P 

PC, O@BPUTREG dSAVE REGISTERS 

R1,@R2 260 SHOULD NOT CLEAR ERROR 

58 SPURTHER CHECK OF °GO° FUNCTIONALITY 
R2, O8REGCADR sPAILING REGISTER 

R1,@8SGDDAT 26000 DATA 


@8CS2,Q8SBDDAT BAD DATA 
1 3"GO" WITH HO-OP CHANGED 
ZERROR REGISTER 


@#0S1,-(SP) sGET RHDS1 

eVVIPROG, (SP) sCLEAR VY AND PROG 

SATATERRIDPRIDRY,(SP)*3C0 SHOULD WOT CLEAR ANY BITS 

7$ sCHECK WAT ERROR BIT IF A-OK 

20 3*GO" WITS NO-OP SHOULD NOT CLEAR 
3ATA AND/OR ERR 


s*THIS TS THE MAIN BIT TESTING CONTROL LOGIC 


7$3 


10$: 


ASL 
Bcs 
BIT 
BNE 
BR 


Tst 
DEC 
BNE 


RY dGET REXT BIT TO THE LEFT 

10$ 260 OW TO NEXT REGISTER IF DONE 
(RO),R1 31S THIS BIT TO BE TESTED ? 

7$ sIf NOT, CET WEXT ONE 

2$ 31f TO RE TESTED, GO DO IT t 
(RO De SADVAWCE RO TO WERT ERROR REG. - 
@#STMP1 SRECISTER COUNTER 

18 300 WEXT ONE, IF 3 WOT COMPLETE 


3*NOW AFTER SETTING ATA IW FADS] "1" IN RHAS AT THE 
s*DRIVE POSITION SHOULD CLEAR ATA IN RHDS1 


JSR 
MoV 
mov 
MoV 
JSR 


PC, @#CLDISK sCLEAaR 
#11S$-S$LPERR sERROR RETURN 
#-1, 024 3SET BIT-IN RHAS AND ATA IW RHDS1 


OP#ATTENT, QRHAS WRITE 1 INTO DKIVE BIT POSITION 
PC, @EPUTREG SSAVE REGISTERS 


mir 
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6347 
6343 
6749 
6350 
6351 
6352 
6353 
6354 
6355 
6356 
6357 
63593 
6759 
6360 
6361 
636? 
6363 
6364 
6365 
6766 
6367 
6368 
6369 
6370 
6371 
6372 
6373 





031674 
031700 
031702 


031704 
031710 
031714 


031720 
031722 


031724 


031732 
031734 


29-MAR-76 00:00 


105737 
001401 
104020 


013746 
042716 
022726 


001401 
104020 


022737 


001401 
104020 


001732 


001736 12$: 
001000 
040700 


177777 001716 13$: 
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ATTENTION WITH ERPOR TEST 


TSTB QSAS sTHIS SHOULD BE ZERO 

BEQ 12$ 

ERROR 20 s¥OVIFG A "1" INTO RHAS 
3AT THE DRIVE BIT POSITION 
3DID NOT CLEAR IT 

mov @#DSi,-( SP) sGET RHDS1 

BIC #PROG, (SP) s¥ASK PROGRAMABLE 

CMP SERRIVVEOPRIDRY,(SP)*¢ 
sRHDS1 SHOULD HAVE THESE PITS 
sBUT ATA SHOULD BE CLEARED 

BEC 13$ sCHECF RHER1 IF GOOD 

ERROR 20 s¥VOVING “1" INTO PHAS AT THE 
s0RIVE BIT POSITION DID NOT 
sCLEAP ATA IN RHDS1 

Cee 8-1, a8EP) sRHER] SHOULD NOT CHANGE 
sBY CLEARING PHAS 

BEQ TST72 sBRANCH IF GOOD 

ERROR 20 3PHER1] WAS CHANGED BY CLEARING 


sPHAS BY MOVING “1° INTO 
sTHE DRIVE BIT POSITION 


AS 
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DZRJIGA.P11 29-MAR-76 00:00 T71 ATTENTION WITH ERROR TEST ( 
6374 
6375 FF ASA SSAA Ae Ke AAA SAAALAARSSSAAAAAAAHAH HAHAH ORSHERHAAAeReAeeeRATenes ( 
6776 s*TEST 72 BUS ADDRESS INHIBIT 
6377 
6378 zee READ CYLINDERO, FORMAT 16 BITS PER WORD ( 
6379 3*e TRACKO, SECTOR 1, KEYS 0, 10 WORDS OF 177400 
6380 3** THIS IS DONE WITH BUS ADDRESS INHIBIT SET 
6381 zee ANY ERROR LOGIC INDICATION IS WOT CONCLUSIVE ON FIRST PASS ( 
6382 ee BECAUSE ERROR LOGIC HAS WOT BEEN CHECKED YET (ON FIRST PASS) 
6383 
6384 3 3 RAEATHAKRARARKRAARAARAAKAKARAARAAARAARARAKAAKRAARARARARAReeRAAARARAARRAAAARAAEEe ( 
6385 031736 000004 TST72: SCOPE 
$706 031740 012706 001000 “ov @STACK,SP sRESET STACK 
6388 031744 012737 000072 002032 NOV STTNO,@8TSTNM ZTHIS SAVES TEST WUMBER 
6389 031752 004037 042452 JSR RO, @ECLAREA 3CLEAR SIMULATED DISK 
6390 0731756 051116 eWORD DISK FROM ( 
6391 031760 052114 eWORD DISK*776 3T0 
—* 031762 177400 eWORD 177400 DATA 
6 
6394 031764 004037 042452 JSR RO, @SCLAREA gCLEAR READ INTO BUFFER 
6395 031770 003154 eWORD REINTO 3 ROM 
6396 031772 004152 eWORD REINTO*776 3TO { 
sone 031774 000000 -woRD 0 DATA 
6398 
6399 3*THESE ARE TO SETUP FOP DISKLESS USE ONLY ( 
6400 
6401 031776 012737 010000 047200 MOV #FMT22,@8CYL sCYLINDER 0 16 BITS PER WORD FORMAT 
6402 032004 105037 047203 CLRB @#SECOTRe1 TRACK 0 { 
6403 032010 112737 000001 047202 MOVB #1, 8@SECOTR 3SECTOR 1 
6404 032016 005037 047204 CLR @PKEY1 sREVI=0 
6405 032022 005037 047206 cLR @#KEY2 3KEV2=0 | 
6406 032026 012737 000012 047260 MOV #10.,@@DAWORD 380. OF DATA WORDS 
6407 032034 005037 047210 CLR e@#x sTHIS IS A READ COMMAND 
6408 032040 004537 043742 JSR RS, e#CRC 360 TO CALCULATE Cre \ 
6409 032044 047200 CYL 
6410 032046 051100 were 
6411 | 
641? P*THESE ARE REGULAR SETUPS 
6413 
6414 032050 004737 042534 JSR PC, @8CLDISK 3SETUP CENERAL REGISTERS \ 
6415 032054 013711 002066 MOV Q@PREADAT, @R1 3READ DATA INTO RACS1=70 
6416 032060 012777 177766 147544 MoV #-10., @RHWC 310 DATA woRDS 
6417 032066 012777 003154 147540- MoV @REINTO,@RHBA $$ ;STARTING ADDRESS OF READ BUFFER | 
6418 032074 112746 000001 MOVB #1,-(SP) 31M LOWER BYTE GET SECTOR 1 
6419 032100 112766 000000 000001 Move #0,1(¢SP) 3CET TRACKO IN UPPER BYTE 
6420 032106 012677 147532 MOV (SP)+, @PHDST sTRACK/SECTOR IN PHDST { 
6421 032112 012777 014000 147530 “ov @FMT220ECI,@RHOF 316 SITS PER WORD 
6422 3ECC CORRECTION INHIBIT BECAUSE 
6423 3©CC IS WOT CHECKED HERE | 
6424 032120 005077 147526 CLR @RHCA sCYLINDER 0 
6425 032124 004737 042570 JSR PC, QSCHECKT SCHECK THAT DVA,RDY,DPR,DRY = 1 
6426 032130 104401 062145 TYPE ,CPHALT 2AND THAT NO OTHERS = 1. CANNOT COR- 
6427 sTINUE TESTING IF BOTH AREN°T TRUE 
6428 032134 000000 HALT 3STOP THE TEST 
6429 032136 052777 000010 147472 BIS #BaAI,@RHCS2 3SET BUS ADDRESS INHIBIT Qi 








( 
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) DzRIGA.P11 29-MAR-76 00:00 172 BUS ADDRESS INHIBIT ( 
6430 032144 005037 002006 CLR @tERFLGS sCLEAR ERROR FLAG 
6431 032150 004737 047040 JSR PC, @sCOMHD READ DATA ( 
6432 
6433 3*If THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUT 
6434 3*FROM “COMHD™ ROUTINE IN MEANS DATA IS TO BE CHECKED ( 
6435 
6436 9*NOW THE DATA READ INTO “REINTO" BUFFER WILL 
6437 3*BE CHECKED, OWLY OWE WORD SHOULD BE CHANGED ( 
6438 Z*ALL OTHER WORDS SHOULD REWAIN UNCHANGED 
6439 s°THE “WRFRON™ BUFFER IS FILLED WITH EXPECTED DATA AND CHECKED ( 
6441 032154 005037 002006 CLR @#ERFLCS sCLEAR FLAG 
6442 032160 004037 042452 JSR RO, @SCLAREA 3CLEAR BUFFER 
6443 032164 002110 WRFROM 3FRON ( 
6444 032166 003106 WRFROM¢776 370 
6ees 032170 000000 0 3DATA 
4 
6447 "EXPECTED DATA IS 177400 IN FIRST LOCATION ONLY 
644s 032172 012737 177400 002110 Mov #177400, e#uRFROM EXPECTED DATA ' 
6450 3*NOW READ DATA BUFFER IS CHECKED 
6451 
6452 032200 012700 002110 mov #VRFRON,RO 3GOOD DATA ( 
6453 032204 012701 003154 mov @REINTO,R1 DATA READ 
6454 032210 012702 000400 nov #256.,R2 sCOUNTER 
6455 032214 012737 000401 047320 1$: MoV 8257.,@7ERWORD 3 FOR ERROR WORD HO ( 
6456 032222 022021 cue (RO)*, (R14 COMPARE GOOD WITH READ BUFFER 
6457 032224 001424 BEQ 2$ 38RARCH IF GOOD 
6458 032226 014037 001124 mov -(RO),@RSCDDAT 3COOD DATA ( 
6459 032232 014137 001126 mov -(R1),@9SB8DDAT 3BAD DATA 
6460 032236 160237 047320 SUB R2, @#ERWORD ERROR WORD HO 
6461 032242 005737 002006 tst e@#ERFLCS 3ANY ERROPS ALREADY THERE ( 
6462 032246 001002 BNE 3$ 31 YES BRAWCH DO NOT TYPE HEADER 
6462 032250 104004 ERROR 4 ZERROR OW READ DATA 
6464 032252 000401 BR 4s ZP@RANCH TO AVOID PRINTING NEXT EkROR ( 
6465 032254 104005 3S: ERROR 5 3WORD BO 1-10 ARE DATA 
6466 3¥ORDS 
6467 3VORD NOS 11-256 HAVE NOT BEEN ( 
6468 3READ AND BUFFER SHOULD BE 
6469 3ZERO IF OTRER THAN ZERO 
6470 WRONG WUMBER OF WORDS HAVE ( 
6471 3REEM READ IW THE DISK wOW 
6472 CONTAINS 177400 ALL 256 
6473 WORDS RUT ONLY 10 WORDS ( 
6474 SHOULD BE READ IW 
6475 
6476 032256 022021 4$: cup (RO), (R1 Do 3UNDO -(RO) AND -(R1) FOR ERROR ( 
6477 032260 017746 146654 MoV @suR,-(SP) 3CET SWITCH SETTING 
6478 032264 042716 177177 BIC #177177,(SP) KEEP ONLY SWITCH 7 AND 8 
6479 032270 022726 000200 CMP #S407,(SP)¢ 31S 7 SET AND @ RESET ( 
6480 032274 001402 BEQ TST73 BRANCH OUT IF YES 
6481 032276 005302 2$: DEC R2 ;COUNT ( 
6482 032300 001345 BNE 1s BRANCH IF WOT COMPLETE 
6483 


i — 
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6486 
6487 


BUS ADORESS INHIBIT 


ov3 
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6488 
6489 
6490 
6491 
6492 
6493 
6494 
6495 
6496 
6497 
6498 
6499 
6500 
6501 
6502 
6503 
6504 
6505 
6506 
6507 
6508 
6509 
6510 
6511 
6512 
6513 
6514 
6515 
6516 
6517 
6518 
6519 
6520 
6521 
6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 
6532 
6533 
6534 
6535 
6536 
6537 
6538 
6539 
6540 
6541 
6542 
6543 





032302 
032304 
032310 


032316 
032322 
032324 
032330 


032330 
032334 
032336 
032340 


032342 
032350 
032354 
032362 
032366 
032372 
032400 
032404 
032410 
032412 


0324i4 
032420 
032424 
032432 
032440 
032444 
032450 
032456 
032462 


032470 


29-MAR-76 00:00 


000004 
012706 
012737 


005737 
001402 
000137 


004037 
051116 
052114 
177400 


012737 
105037 
112737 
005037 
005037 
012737 
005037 
004537 
047200 
051100 


004737 
013711 
012777 
012777 
052711 
112746 
112766 
012677 
012777 


005077 


001000 
000073 


002040 
032646 


042452 


010000 
047203 
000001 
047204 
047206 
000001 
047210 
043742 


042534 
002066 
177777 
160000 
001400 
000001 
000000 
147162 
014000 


147156 


002032 


047200 
047202 


047760 


147200 
147174 


000001 
147160 
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BUS ADDRESS INHIBIT 


3*TEST 73 


3°? 
32e 
37e 
3** 
3ee 


TST73: 


30$: 


SCOPE 
Mov 

MOV 
3*CHECK 
tst 


BEQ 
Jue 


JSR 

WORD 
WORD 
e WORD 


3* THESE 


3*TRESE 


JSR 
Mov 


RACS2 - BIT # 11 - WEN 


READ CYLINDERO, FORMAT 16 BITS PER WORD 

TRACKO, SECTOR 1, KEYS 0, 1 WORD OF 177400 

TRIS IS DONE WITH BUS ADDRESS IWHIBIT SET 

BUS ADDRESS USED IS 760000 THIS IS ALWAYS HOM EXISTANT 
TRIS SHOULD SET NEN 


3 SRATKAARAAAAAHAKSAARAARHAAAKETTHRAKRKRAKHAHRARARAKRSAReEARAReeeeeeteeete 


@STACK,SP 
STTHO, O#TSTNM 


sRESET STACK 
sTHTS SAVES TEST HUMBER 


TO SEE IF THE PROGRAM IS RUNNING WITH AR RU7O 


@#RA70 
30$ 
TsT74 


RO, @SCLAREA 
DISK 
DISK+¢776 
177400 


STEST FLAG FOR RH7O CONTROLLER 

3IF FLAG = 1, THIS TEST IS SKIPPED 
3JUNP TO NEXT TEST 
IF FLAG = 0, DO THIS TEST 


sCLEAP SIMULATED DISK 
3FROM 

3TO 

3DAaTA 


ARE TO SETUP FOR DISKLESS USE ONLY 


@FMT22,@gCYL 
@SSECOTRe1 
#1, @8SECOTR 
@sKEY1 
@sKEY2 
$1.,@#DAWORD 
GER 


RS, @ecrRe 


sCYLINDER 0, 16 BITS PER WORD FORMAT 
sTRACK 0 

sSECTOR 1 

sKEV1=0 

sKEY2=0 

340. OF DATA WORDS 

sTHIS IS A READ COMMAND 

260 TO CALCULATE CRC 


ARE REGULAR SETUPS 


PC, @BCLDISK 
@#READAT, @R1 
$-1., RHC 
#160000, @PHBA 
#A160A017,@R1 
#1,-C(SP) 
#0,1(SP) 
(SP)¢, aRHDST 


sSETUP GENERAL REGISTERS 

3READ DATA TUTO RHCS1=70 

310 DATA worRDS 

SSTARTING ADDRESS OF READ BUFFER 
31S 760000 

3TH LOWER BYTE GET SECTOR 1 

2667 TRACKO IW UPPER BYTE 
sTRACK/SECTOR IN RHDST 


@PMT2ZZ20ECT, @RFOF 316 BITS PER WORD 


@°HCA 


3ECC CORRECTION INHIBIT BECAUSE 
sECC TS WOT CHECKEO HERE 
sCYLINDER 0 








€' 





WNDEC-11-DZRJG-A,RP04/5/6 OSKLS CONTROLLER TST-PT i ey wwty 08-DEC-77 13:57 PAGE 151 
DZRJIGA.P11 29-MAR-76 00:00 T73 RHCS2 - BIT @ 11 - WE 
6544 032474 004737 042570 JSR PC, QACHECKT SCHECK THAT DVA,RDY,DPR,ORY = 1 
6545 032500 104401 062145 TYPE oCPHALT 3AMD THAT NO OTHEPS = 1. CANNOT CON- 
6546 sTINVE TESTING TF BOTH ARENT TRUE 
6547 032504 000000 HALT 3STOP THE TEST 
6548 032506 052777 000010 147122 BIS @PAT,@RACS2 sSET BUS ADDRESS INHIBIT 
6549 032514 005037 002006 CLR @#ERFLGS sCLEAR ERROR FLAG 
ay 032520 004737 047040 JSR PC, @8COMHD sREAD DATA 
6552 
6553 
6554 032524 011137 001126 1s: “ov @R1, @8SRODAT STEST DATA 
6555 
6556 032530 022737 145670 001126 cwe ne — SCOMPARE RHCS1 
6557 032536 001406 BEQ 2s BRANCH IF Goo 
6558 032540 012737 144270 001124 MOV SSCITRENDVAURDYITO,e9ScDDAT 3c 3e00o DATA 
6559 032546 010137 042204 wov R1, @@RECADR sPREGISTER RACS) 
6560 032552 104001 ErroRk 1 SREPERESCE HOW EXISTANT 
6561 SMEMORY DID BOT SET 
6562 SREQUIRED BITS 
6563 032554 013746 001774 2S: MOV QeUNIT,-( SP) sGCET UNTT NUMBER 
6564 032560 052716 004110 BIS SWEMITRIBAI,(SP) STNCLUDE REM BAI AND I 
6565 032564 012637 001124 mov (SP)*,@8SCDDAT 3 
6566 032570 011237 001126 wov @R2,e8S80DAT 3TEST DATA 
6567 032574 023737 001124 001126 cP QSSCODAT, QESBODDATZCOMPARE RHCS2 — 
6568 032602 001403 BEQ 3$ 
6569 032604 010237 042204 MOV R2, QGRECADR sRECISTER ADDRESS 
6570 032610 104001 ERROR 1 SREFRENCING NONEXISTANT MEMORY 
6571 sCAUSED AN ERROR SHOULD SET NEN 
6572 032612 017737 147016 001126 35: Mov Q@RHBA,@SSBDDAT  s;TEST DATA 
6573 
6574 032620 022737 160000 001126 cuP #160000, e@8S8DDaT 3COMPARE RHBA 
6575 032626 001407 BEQ 4s sBRANCH IF GOOD 
6576 032630 012737 160000 001124 MOV #160000, @8SGDDAT;COOD DATA 
6577 032636 013737 001634 042204 “ov @PRHBA,GHREGADR jSRECISTER ADDRESS RHBA 
6578 032644 104001 ERROR i ZAPTER A WOR EXISTANT MEMORY ERROR 
6579 3RHBA DOES NOT HAVE 160002 
6580 032646 4s: 
6581 
6582 
6583 
6584 
6585 
6585 
6587 


ers 
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6588 
6589 
6590 
6591 
6592 
6593 
6594 
6595 
6596 
6597 
6598 
6599 
6600 
6601 
6602 
6603 
6604 
6605 
6606 
6607 
6608 
6609 
6610 
6611 
6612 
6613 
6614 
6615 
6616 
6617 
6618 
6619 
6620 
6621 
6622 
6623 
6624 
6625 
6626 
6627 
662" 
6629 
6630 
6631 
6632 
6633 
6634 
6635 
6636 
6637 
6638 
6639 
6640 
6641 
6642 
6643 


032646 


032650 
032654 
032662 


032666 
032672 
032676 
032700 
032702 
032704 
032710 
032714 
032716 
032720 
032722 


032724 
032730 
032732 
032734 


032736 
032742 
032746 
032750 
032752 


032754 
032760 
032764 
032766 


29-MAR-76 00:00 


012706 
012737 
004737 


012700 
012701 
010021 
006100 
103375 
012700 
012701 
010021 
000261 
006100 
103774 


004037 
003254 
004152 
000001 


012700 
012701 
010021 
006100 
103375 


012700 
012701 
010021 
000261 


001000 
000074 
042534 


000001 
003154 


177776 
003214 


042452 


000001 
051116 


177776 
051156 


002032 


RHCS2 - BIT # 11 - WEN 


s*TEST 74 WRITE CHECK ERROR 

3** WRITE CHECK DATA CYLINDER 0 FORMAT 16 BITS PER vono 

ae TRACK 1, SECTOR 1, KEYS 0, 32 WORDS OF DATA 

= FIFTH WORD IS CHANGED OW DISK TO CIVE WRITE CHECK ERROR 
pie ANY DEVICE LOGIC ERROR INDICATIONS ARE ROT CONCLUSIVE 
— OW FIRST PASS 

= BECAUSE ERROR LOGIC HAS MOT YET BEEN CHECKED 

y= OWLY RH WRITE CHECK ERROR IS TESTED 


TST74: 


1$3 


25: 


252 


4$% 


s*DATA TAPLE 

s*TOTAL OF 32 WORDS CONSISTING OF 

3*16 WORDS OF FLOATING OWES (EG. 1, 26 4¢ 10) 
3*16 WORDS OF FLOATING ZEROS (EG. 177776, 177775) 


Mov @STACK,SP sRESET STACK 
nov #TTRO,QSTSTHMN  ZTHIS SAVES TEST BUNBER 
JSR PC, @@CLDISK sTUIT AWD SET UP GENERAL RECISTERS 


3*SET UP “REINTO™ FOR WHAT IS TO SE READ 


MoV #1,R0 sCETTING READY TO FLOAT 1 

MOV SREINTO,R1 SSTARTING ADDRESS WHERE 1 GOES 
MOV RO, (R1 Do sMOVE FLOATING 1 

ROL RO sCET 1 ONE BIT LEFT 

Bcc is sB8RANCH IF 16 HOT DONE 

MoV #177776,R0 sCETTING READY TO FLOAT 0 

MOV SREINTOS<K16.°%2>,R1 SSTARTING ADDRESS WHERE 177776 GOES 
MoV RO,(R1)¢ sMOVE IN FLOATING 0 

SEC sSET CARRY 

ROL RO sCET 0 ONE BIT LEFT 

BCS 2s sPRANCH IF 16 BOT DONE 

JSR RO, @ACLAREA SPILL REST OF BUFFER WITH 1 
oWOPD 8 REINTO*¢<32.°2>  3FROM 

eWORD REINTO*776 270 

eWORD 1 aWITH DATA 


3*SET UP SIMULATED DISK WITH WHAT IS TO BE READ 


MOV #1,R0 sGETTING READY TO FLOAT 1 

MoV #O0ISK,R1 SSTARTING ADDRESS WHERE 1 GOES 

MoV RO,(R1 De sMOVE FLOATING 1 

ROL RO aGET 1 ONE BIT LEFT 

Bcc 3¢ sBRAUCH IF 16 NOT DONE 

MoV #177776,R0 sCETTING READY TO FLOAT 0 

MOV @DISK*<16.%2>,R1 SSTARTING ADDRESS WHERE 177776 GOES 
mov RO,(R1ID* s¥OVE FLOATING 0 


SEC 3SET CARRY 


G‘\3 
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DZRIGA.P11 29-MAR-76 00:00 174 WRITE CHECK ERROR ( 
6644 032770 006100 ROL ° RO dCET O OWE BIT LEFT 
6645 032772 103774 BCs 4s PRANCH IF 16 NOT DORE ( 
6646 
6647 032774 004037 042452 JSR RO, @ACLAREA JFILL REST OF BUFFER WITH 0 
6648 033000 051216 WORD DISK+<32.*%2> 3FROM ( 
6649 033002 052114 «WORD DISKe776 3T0 
$650 033004 000000 WORD 0 WITH DATA ‘ 
6651 
6652 3*CHANGE FIFTH WORD TO © Om DISF 
6653 
6654 033006 005037 051126 CLR @#DISK+10 dCLEAR FIFTH WORD OW DISK ( 
6655 033012 005037 002006 CLR @RERFLGS sCLEAR ERROR FLAG 
6656 033016 004737 043572 JSR PC, ABURCHDA WRITE CHECK DATA 
6657 3CYLINDER 0, TRACK 1, SECTOR 1 ( 
6658 sREYS 0, 32 WORDS. 
6659 
6660 3*IF THE PROGRAM COMES PACK HERE THEN WRITE CHECK ( 
6661 3*HAS BEEN COMPLETED, NOW WRITE CRECK ERROR BIT IS TESTED 
aes? 3*ALONG WITH RHWC FOR PROPER WORD COURT AWD RHBA FOR ADDRESS ( 
6664 033022 013746 001774 mov @GUNIT,-(SP) 3CET UNIT BUNBER 
6665 033026 052716 040300 BIS SIRIORIWCE,(SP) ;ONLY BIT 6 SHOULD BE SET 
6666 033032 004737 042140 JSR PC, @#PUTREG SAVE REGISTERS ( 
6667 033036 022637 001712 cup (SP)¢,99CS2 3COMPARE RHCS2 
6668 033042 001407 BEQ 68 38RANCH IF GOOD . 
6669 033044 032737 040000 001712 BIT @vcE,eecs? WRITE CHECK ERROR HIGH? ( 
6670 033052 001002 BNE 58 3BRARCH IF ERROR WOT DUE TO “WCE® 
6671 033054 104017 ERROR 17 3RHDB CONTAINS PATLING WORD 
6672 033056 000401 BR 6$ RHBA CONTAINS ADDRESS*2 ( 
6673 30F THE WORD I8 WENORY FROM 
6674 3THE DISK THAT DID WOT COMPARE 
6475 3TRE AWD SC WILL BE SET DUE TO WCE ( 
6676 023060 104017 5$: ERROR 17 3WCE WAS CORRECTLY NOT SET 
6677 3BUT SOME BITS OTHER THAN 
6578 3TR AND UNIT NO. WERE SET ( 
6679 
6680 033062 005737 002040 6$: TST @#RH70 3TEST FOR RH70 CONTROLLER 
6681 033066 001414 BFQ 16$ 3SKIP RH70 CODE AND DO RH11 IF NOT ( 
6682 
6693 033070 022737 177750 001706 cup #-24.,080° 3COMPARE RHWC AFTER A FORCED 
6684 WRITE CHECK ERROR ( 
6685 033076 001402 BEQ 17 3CHECK PHBA IF GOOD 
6636 033100 104017 ERROR 17 WORD COUNT REGISTER IW ERROR AFTER A 
6687 FORCED WRITE CHECK ERROR OW FIFTH WORD ( 
668 033102 000422 BR iss BRANCH TO CONTINUE TEST 
6689 
6690 033104 022737 003174 001710 17%: che BREINTO*CR.*2>,9$PA ;COMPARE RHSA AFTER A FORCED ( 
6691 WRITE CHECK ERROP IN FIFTH WORD 
6692 033112 001415 BEQ 158 s;CONTINVE IF GOOD 
6693 033114 104017 ERROR 17 3PUS ADDRESS REGISTER IN ERROR AFTER ( 
6694 sFOPCED WRITE CHECK ERROR OW FIFTH woRD 
6695 033116 000413 BR 15$ SKIP RH11 CCDE AND CONTINUE WITH TEST 
6697 033120 022737 177745 001706 16$: CMP #-27.,080C COMPARE RHWC AFTER A FORCED 
6698 SWRITE CHECK ERROR 453 
6699 033126 001402 BEQ 14$ CHECK RHBA IF GCCD ( 
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6700 
6701 
6702 
6703 
6704 
6705 
6706 
6707 
6708 
6709 
6710 
6711 
6712 
0713 
6714 
6715 
6716 
6717 
6713 
6719 
6720 
6721 
6722 
6723 
6724 
6725 
6726 
6727 
6728 
6729 
6730 
6731 
6732 
6737 
6734 
6735 
6736 
6737 
6738 
6739 
6740 
6741 
6742 
6743 
6744 
6745 
6746 
6747 
6748 
6749 
6750 
6751 
6752 
6753 
6754 
6755 


033130 
033132 
033134 


033142 
033144 


033146 
033152 
033156 
033162 
033164 
033166 


033170 
033174 
033200 
033202 
033204 
033206 


033210 
033214 
033216 
033220 


033222 
033226 
033230 
033232 
033234 
033236 


033240 
033242 


033244 
033246 


033250 
033252 


29-MAR-76 00:00 


104017 
000405 
022737 


001401 
104017 


005037 
012700 
012701 
010021 
006100 
103375 


012700 
012701 
010021 
000261 
006100 
103774 


004037 
002210 
003106 
000001 


004037 
002110 
003154 
000400 
033242 
033246 


033254 
104004 


000207 
104005 


000207 
000240 


003166 001710 14$: 


002006 
000001 
002110 


177776 


002150 


042452 


043430 


15$: 


7$3 


10$: 


11S: 
12$: 


1352 


EPROR 
BR 
cue 


BFQ 
ERROR 


MACY11 30(1046) O8-DEC-77 13:57 PACE 154 
WRITE CHECK ERROR 


17 
15$ 


SWORD COUNT REGISTER IM ERROR APTER A 
SPORCED WRITE CHECK ERROR OW FIFTH WORD 


sPRANCH TO CONTINUE TEST 


GREINTO*CS.°2>,@8B8ASCOMNPARE RABA AFTER FORCED 


15s 
17 


SWRITE CHECK ERROR IN FIFTH WORD 
sCONTINUE IF GOOD 


3BUS ADDRESS REGISTER IW ERROR AFTER 
JFORCED WRITE CHECK ERROR OF FIFTH WORD 


3*NOW CHECK MEMORY TO SEE IF ANYTHING GOT DESTROYED 
s*FILL “WREROM™ WITH WHAT SHOULD BE IW REINTO THEN CHECK 


@SERFLGS 
#1,R0 
#uRFROM,R1 
RO,(RID*@ 
RO 

7$ 


#177776,R0 


#WRFROMC<K16.°%2>,R1 FSTARTING ADDRESS WHERE 177776 GOES 


RO, (R1 Do 


RO 
10$ 


RO, @SCLAREA 
URFPOMN*<32.°2> 
URE ROW*776 

1 


sCLEAR ERROR FLAG 

SCETTING READY TO FLOAT 1 
SSTART ADDRESS WHERE 1 GOES 
sMOVE FLOATING 1 

3CET 1 ONE BIT LEFT 

sBRANCH IF 16 MOT DONE 


sGETTING READY TO FLOAT O 


SMOOVE IW PLOATING 0 
3SET CARRY 

3CET O ONE BIT LEFT 
3PRANCH IF CARRY SET 


SPILL REST OF BUFFER WITH 1 
3FROM 

270 

sVITH DATA 


3°MOW TRE READ BUFFER WILL BE CHECKED 


JSR 
WRFROY 
REINTO 
256. 
11$ 
12$ 


18175 
ERROR 


RTS 
EPROR 


RTS 
NoP 


RO, @8COMPAR 


4 
Pc 
5 


Pc 


3CHECR 

26000 BUFFER 

sTEST BUFFER 

SNUMBER OF WORDS CHECKED 
SPETURM POINT FOR ERROR HEADER 
sPETURN POINT FOR ERROR DATA 


SRETURN FOR GOOD COMPARISON 


sPEAD WEXT ERROR 5 

SRETURN TO COMPARISON SUBROUTINE 
sDATA IW RETUTO BUFFER COT 
SCHANGED AFTER A WRITE 

sCHECK DATA COMMAND 

dWORD NO CONTAINS THE wORD 
sWUMBER THAT GOT CHANGED 

JRETURN TO COMPARTSON SUBROUTINE 


sONLY A BRANCH POTNT 





IVS 
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DZRJGA.P11 § 29-MAR-76 00:00 T74 WRITE CHECK ERROR 
6756 
6757 33 SRAESARASAARARASHRARAKRARARARAARAAARARARAAHRERARARARAAARERRARARAARARARAAAeE 
6758 s*TEST 75 ERROR REGISTER #1-BIT 4 -FORMAT ERROR 
6759 see THE SIMULATED DISK IS FILLED WITH CYLINGER © TRACK 1 
6760 30 SECTOR 0 FORMAT=18 BITS PER WORD AND 4 WORDS 
6761 pee OF 125252, A READ HEADER AND DATA COMMAND IS GIVEN WITH 16 BITS 
6762 see PER WORD FORMAT, FER=8IT4 SHOULD SET BUT THE 
6763 yee READ SHOULD BE COMPLETE 
aves 33 REKRAAARAAKeAAAAAARReeReeneaeekereaereaaaraneaeeneanenearnacanrzerneene 
6766 033254 000004 TST7S: SCOPE 
6767 
6768 
6768 033256 012706 001000 MoV @STACK,SP SRESET STACK 
6770 
6771 033262 012737 000075 002032 MoV #TTNO,QSTSTNM ;THIS SAVES TEST NUMBER 
6773 3* SETUP FOR WHAT IS TO BE READ 
6774 >* HEADER CRC IS RESTORED FROM A SUBROUTINE 
6776 033270 012746 125252 MOV #125252,-(SP)  ;DATA TO BE READ 
6777 033274 012705 000400 MOV #256.,85 sCOUNTER 
6778 033300 012700 051116 MOV #01SK,RO PSTART OF SIMULATED DISK DATA 
6779 033304 011620 1$: MOV (SP), (RO)¢ 3MOVE IN DATA ON TO SIMULATED DISK 
6780 033306 005305 DEC RS 3COUNT 
6781 033310 001375 BNE 1$ 3BRANCH IP 256 NOT COMPLETE 
6782 033312 005726 TST (SP · 3UNDO -(SP) 
6783 033314 012705 000021 MOV #17.,R5 32 ECC WORDS 
6784 31 DATA GAP 
0785 314 TOLERANCE GAP 
6786 033320 005020 2$: CLR (RO) 3CLEAR FCC, DATA GAP, AND 
6787 033322 005305 DEC RS 3TOLERANCE GAP 
6788 033324 001375 BRE 2$ JBRANCH IF NOT COMPLETE 
6 
6790 
6791 s*THESE ARE TO SETUP FOR DISKLESS USE ONLY 
6792 
6793 033326 012737 000000 047200 mov #010, R#CVYL 316 BITS PER WORD 
6794 sCYLINDER 0, FORWAT 16 BITS 
6795 033334 112737 000001 047203 MOVE #1,@@SECOTR¢L ;TRACK 1 
6796 033342 112737 000000 047202 MOVE #0,@#SECOTR 3SECTOR 0 
6797 033350 012737 000000 047204 MOV #0, @@REYI sKEY1=0 
6798 033356 012737 000000 047206 MOV #0, @#REY2 3KEY2=0 
6799 033364 012737 000004 047260 MOV #4., @2DAWORD 3NO. OF DATA WORDS 
6800 033372 005037 047210 CLR rx ITHIS TS A READ COMMAND 
6801 033376 004537 043742 JSR RS, @UCRC 3GO0 TO CALCULATE CPC 
6802 033402 047200 CYL 
6803 033404 051100 were 
6804 
6805 P*THESE ARE REGULAR SETUPS FOR RH11 AND “RETNTO" 
6806 
6807 033406 004737 042534 JSR PC, @ACLDISK PSETUP GENERAL REGISTERS 
6808 033412 012777 177770 146212 MOV #-4.-4.,QRHUC 34. DATA 4 HEADER WORDS 
6809 033420 012777 003154 146206 MOV #RETNTO,@RHBA ZSTARTING ADDRESS OF READ BUFFER 
6810 033426 112746 000000 MOVB = #0, -( SP) 31M LOWER BYTE GET SECTOR 
6811 033432 112766 000001 000001 MOVE = #1,1( SP) PGET TRACK IM HIGHER BYTE 


m3 
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DZRIGA.PAL 29-MAR-76 00:00 ERROR REGISTER 81-BIT 4 -FORMAT ERROR ¢ 
6812 033440 012677 146200 nov (SP)¢, @RHDST sTRACK/SECTOR If RHDST 
6813 033444 012777 014000 146176 MoV GPMT22Z0ECI,@RHOF 316 BITS PER WORD d 
6814 gECC CORRECTION INHIBIT 
6815 3BECAUSE ECC IS NOT GOING 
6816 3TO BE CHECKED q 
6817 033452 005077 146174 CLR @RHCA dCYLINDER 0 
6918 
6819 033456 004737 042570 JSR PC, @SCHECKT sCHECK THAT DVA,ROY,OPR,DRY = 1 | 
6820 033462 104401 062145 TYPE ,CPHALT AND THAT NO OTHERS = 1. CANNOT COR- 
6821 STINUE TESTING TF BOTH AREN°T TRUE 
6022 033466 000000 HALT 3STOP THE TEST q 
6824 033470 013711 002070 mov Q@#REFOR, OR1 READ HEADER AND DATA=72 
6825 033474 005037 002006 CLR @#ERFLGS dCLEAR ERROR FLAG | 
oan 033500 004737 047040 JSR PC, @8COMHD READ HEADER AND DATA 
6828 <q 
6829 3*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
6830 3*PROW THE “COMHD® ROUTINE THAT MEANS SECTOR GAP, 
6931 3*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AED | 
6832 d*SYNC BYTE HAVE GOWE BY AND SYHCS WERE CORRECTLY 
6833 3 *DETECTED. 
6934 
6835 
6836 3*RHWC IS CHECKED TO PE = 0 AFTER THE READ OPERATION 
6838 033504 017737 146122 001126 nov @RHWC,S$BDDAT sLOAD ANO TEST RHWC 
6839 033512 001401 8EQ 20$ SHOULD = 0 
6840 033514 104040 ERROR 40 3RHWC DOES NOT = O AFTER A READ 
6841 HEADER AWD DATA 
6842 
6843 3*HEADER AND DATA ARE TO BE CHECKED. 
6944 3*IN CHECKING READ DATA THE WRITE FROM BUFFER 
6845 3*™=¥RFROM™ IS FILLED WITH EXPECTED DATA AND 
eee S*COMPARISONS ARE MADE. 
6848 033516 005737 002006 20S: tst @RERFLCS 2AMY ERRORS ALREADY THERE 
6849 033522 001055 BNE TST76 BRANCH IF YES 
6850 033524 004737 042760 Jsr PC, RECHECKE pCHECK THAT BITS = 1 
6851 033530 104401 062145 TYPF CPHALT CANNOT CONTINUE TESTING IF THEY DON’T 
6852 033534 000000 HALT 3STOP THE TEST 
6853 033536 012700 002110 mov @WRFROM,RO GETTING READY TO FILL EXPECTED DATA 
6854 033542 012720 000000 MOV #0,(RODe CYLINDER 0 
6855 033546 112746 000000 MOVB #0,-(SP) 31M LOWER BYTE GET SECTOR 
6856 033552 112766 000001 000001 MOVB #1,1(¢SP) CET TRACK IN HIGHER BYTE 
6857 033560 012620 mov (SP)*,(RO)* 3GET TRACK/SECTOR IN BUFFER 
6858 033562 012720 000000 Mov #0, (RO)e 3KEY2 IN BUFFER 
6859 033566 012720 000000 MOV #0, (RO)* gKEY2 IN BUFFER 
6860 033572 012701 000400 MOV #256.,R1 DATA WORD COUNTER 
6861 033576 012702 125252 MOV #125252,R2 sDAaTA 
6862 033602 010220 3$: MOV R2, (RO )* sDATA INTO BUFFER 
6863 033604 005301 DEC Ri COUNT 
6864 033606 001375 BNE 3$ ZPRANCH I® 256 NOT DONE 
6865 
6966 2*NOW@ READ DATA BUFFER WILL BE CHECKED rar 


6°67 
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6868 
6869 
6870 
6871 
6872 
6873 
6874 
6875 
6876 
6877 
6878 
6879 
6880 
68681 
6882 
6883 
6884 
6885 
6886 
6887 
6888 
6889 
6890 
6891 
6892 
6893 
6894 
6395 
6896 
68697 
6898 


033610 
033614 
033616 
033620 
033622 
033624 
033626 
033630 
033632 
033634 


033636 


033640 


033644 
033652 
033654 


29-MAR-76 00:00 


004037 
002110 

003154 
000010 
033630 
033634 
033640 
104004 
000207 
104005 


000207 


004737 


022737 
001401 
104020 


043430 


042140 
100020 001716 


4$3 
S$: 


ERROR REGISTER $1-B1T 4 -FORMAT ERROR 


JSR RO, 9ECOMPAR 3CHECE 

WRFROM 26000 BUFFER 

REIHNTO STEST BUFFER 

424. sWUMBER OF WORDS CHECKED 

48 SRETURH POINT FOR ERROR HEADER 
S$ SRETURE POINT FOR ERROR DATA 
6$ sRETURE FOR GOOD ConPARTSOB 
ERROR 4 sREAD BEXT ERROR 

RTS ec sRETURE TO “CONPAR® 

ERROR 5 SWORD BOS 1 TO 4 ARE 


PHEADER WORDS 
35 TO 260 ARE DATA woRDS 
RTS PC dRETURE TO “CONPAR® 


3*NOW SEE THAT FORMAT ERROR BIT GOT SET 
JSR PC, O#PUTREG SSAVE REGISTERS © 


cuP SPERIDCK,@SER1 FORMAT ERROR a BE SET 
BEQ TST76 sBRANCH IF GOOD 
ERROR 20 3A 16 BIT PER WORD READ WAS ATTEMPTED 
3WHEN TRE DISK HAD 
STHE PORMAT BIT=O0= 16 BITS PER 
sUORD TRE READ WAS 
SCOMPLETED RUT ERROR REC 
a¥UAS HOT RIGHT 
sUOTE DCK WILL BSE SET BECAUSE 
sECC MAS WOT BEEN GENERATED 


LIS 
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6899 
6900 XXXXRRRRRR 
6901 a*TEST 76 ERROR REGISTER #1-B1T 4 -FORMAT ERROR 
6902 
6903 ped THE SIMULATED DISK HEADER IS FILLED WITH CYLINDER 0 
6904 pod TRACK 0, SECTOR O FORMAT 16 BITS PER WORD 
6905 je A WRITE DATA COMMAND IS GIVEN WITH SAME HEADER 
6906 ed EXCEPT FORMAT BIT. THE DATA SHOULD NOT BE WRITTEN. 
6907 
6908 RRXXEXXXYXVEXXXXXX 
6909 033656 000004 TST76: SCOPE 
6910 3*NOW A WRITE DATA WILL BE sacha with 
6911 3*URONG FORMAT BIT 
6912 
—9 033660 012706 001000 Mov #STACK, SP SRESET STACK 
6914 
6915 033664 012737 000076 002032 Mov STTHO,O#TSTNN  ZTHIS SAVES TEST RUMBER 
6916 
6917 033672 012737 177777 «4047314 Mov @-1, OF ROSYHC sSET PFLAG SO THAT DATA srac 
6918 3AND DATA IS BOT READ 
6919 033700 004037 042452 FRMAT1: JSR RO, OSCLEREA sCLEAR SIMULATED DISK 
6920 033704 051116 eWORD OISK PROM 
6921 033706 052142 eWORD TOLGAP?16 270 
6922 033710 000000 eWORD 0 sDaTa 
6923 d*THESE ARE SETUP FOR DISKLESS USE ONLY 
6924 033712 005037 047200 CUR e@sCcYL SCYLINDER 0, FORMAT 16 BIT WORDS 
6925 033716 105037 047203 CLRB @SSECOTRe} STRACK O 
6926 033722 105037 047202 CLRB e#SEcorR ssector 0 
6927 033726 005037 047204 CUR @RKEY1 sREV1 0 
6928 033732 005037 047206 CUR @RKEY2 sREY2 0 
6929 033736 012737 000004 047246 nov #4, QENOWORD 380 OF DATA WORDS 
6930 033744 012737 000001 047210 MOV #1, 08x sWRITE DATA 
6931 033752 004537 043742 JSR RS, eeCRC 360 TO CALCULATE Cac 
6932 033756 052336 wcyL 
6933 033760 052346 ccrc 
6934 
—* S*THESE AER REGULAR SETUPS 
6937 033762 004037 042452 JSR RO, @SCLAREA 2FILL BRITE FROM BUFFER WITH 125252 
6938 033766 002110 WRFROM 3FRON 
6939 033770 002116 URFROMS6 270 
6940 033772 125252 125252 20474 
6941 033774 004737 042534 JSR PC, @8CLDISK sSETUP GENERAL REGISTERS 
6942 034000 012777 177774 145624 MOV #-4, QRAWC 9256 DATA wORDS 
6947 034006 012777 002119 145620 MOV GWRFROM,@RHBA STARTING ADDRESS OF WRITE BUFFER 
6944 034014 005077 145624 CLR @RHOST sTRACK=0 SECTOR=0 
6945 034020 012777 010000 145622 mov @FuUT22,e@RHOF 316 BITS PER WORD FORMAT 
6946 034026 005077 145620 CLR @RHCA SCYLINDER 0 
6947 034032 004737 042570 JSR PC, @RCHECET sCHECK THAT DVA,RDY,DPR,DRY = 1 
6948 034036 104401 062145 TYPE eCPHALT 3AND THAT HO OTHEPS = 1. CANNOT COR- 
6949 STINUE TESTING TF BOTH AREN'T TRUE 
6950 034042 000000 HALT 3STOP THE TEST 
6951 034044 013711 002062 MoV @SURIDAT, @R1 aURITE DATA=60 
6952 034050 005037 002006 CUR @#ERFLGS SCLEAR ERROR PLAG 
6953 034054 004737 047040 JSR PC, @SCOMHD sWRITE Data mid 
6954 3*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
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DZRJGA.P11 29-PAR-76 00:00 T76 ERROR REGISTER #1-BIT 4 -FOPMAT EPROR 
6955 3*FROM THE “COMHD” ROUTINE IT MEANS SFECTUR GAP, SYNC 8YTE 
6956 s*HEADER, HEADER CRC, dEADER GAP BND SYNC BYTE HAVE CONF BY 
6957 s*AND SYNCS WERE COPRECTLY PETECTED 
6958 s*DATA TS TO BE CHECKED 
6959 034060 004737 042140 JSR PC, Q@PUTREG sSAVE REGISTERS 
6960 034064 905737 002096 TST Q#ERFLGS sHAS ANY ERPCPS OCCURED? 
6961 034070 001041 BNE 4s 28aauch IF YES 
6962 034072 012700 000000 MOV #0,R0 26000 DATA 
6963 034076 012701 051116 MOV @DISK,R1 sDATA SPITTEN INTO “DISK” 
6964 034162 012762 000004 MoV #4,22 sCOUNTEP 
6965 034106 012737 000005 047320 15: MOV #5, ®8ERWORD 3FOR ERROR WORD 
6966 034114 020021 cMuP RO, (R1 Do sCOMPARE GOOD DATA WITH DATA ON otst 
6967 034116 001424 BEQ 3$ s°RABCH IF GOOD 
§$96% 034120 010037 001124 MOV RO, @#SCODAT 3G000 DATA 
6969 034124 014137 001126 MOV -(R1),@#SBDDAT 3BAD DATA 
6970 034130 160237 047320 SUB R2, *@ExWORD ZERROR WORD AO 
6971 034134 005737 002006 Tst @RERFLGS ZANY ERRORS ALREADY THEPE? 
6972 034140 601002 BNE 2s sPRABCH IP YES 
6977 074142 104004 ERROR & SERROR OW WPITE DATA COPMAND 
6974 308 A GPITE DATA WITH 
6975 sWRONG FORMAT WO DATA 
6976 3SHOULD BE WRITTEN 
6977 sWORD BO CIVES WORD IW EXROP 
6978 034144 000401 BR ss SBRANCH TO AVOID PRINTING NEXT ERPOR 
6979 034146 104005 2$3 ERROR 5 
6980 034150 005721 5$s tst (Ride ;UNDG -(R1) FOR BAD DATA 
6981 034152 017746 144762 MOV @SUR,-(SP) sGET SWITCH SETTING 
6932 034156 042716 177177 BIC #177177,(SP) sKEEP ONLY SWITCH 7 AND 6 
6983 034162 022726 000200 cvep #SW07,(SP)+¢ 31S 7 SET AND & RESET. 
6934 034166 001402 BEQ 4s sPRANCH IF YES 
6985 034170 005302 3$3 DEC R2 31F WOT COUNT 256 WORDS 
oon 034172 001345 BRE 1$ JPRANCH IF 256 BOT DONE 
6987 
6988 3*NOW CHECK TO SEE THAT FORMAT ER®OP BIT COT SET 
6999 
6990 034174 022737 000020 001716 4S: cP SFER, RER1 SFOPMAT ERROR SHOULD SE SET 
6991 034202 001401 BEQ TSTt77 sPRABCH IF GOOD 
6992 034204 104020 EPROR 20 34 16 BIT PER WORD WRITE DATA 
6993 SUAS ATTEMPTED WHEN THE DISK 
6994 sHAD THE FO@MAT BIT =0=18 
6995 SPITS PER WORD THE WRITE 
6996 sWAS CORRECTLY ABORTED 
poor SBUT ERROR REC. 1 WAS BRONG 





AI 
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DZRJGA.P11 29-MAR-76 00:00 T76 ERROR REGISTER #1-BIT 4 -FORMAT ERROR 

6999 

7000 3 FSAAAAARAAAAAAAAAAAAAHAAAAAAAAAHAHAAARARAAASORAAHALALAAASREAAALAAE 

7001 3*TEST 77 RHERL - BIT #2 - PEC. MODIFICATION REFUSED 

7002 

7003 3** IR THIS TEST THE REGISTERS ARE IN TWO GROUPS 

7004 gee FIRST - RHCSI,RHDST, RHOFP,RHCA,RAERL ,RHER2,RHERZ - SETS RAR 

7005 por SECOND - RAMR,RAAS - DOES NOT SET RR 

7006 3** IF WRITING ITS ATTEMPTED DURING AN OPERATION 

7007 3** 

7008 zee 

7009 ' ues OWLY ONE REGISTER IS WRITTEN ISTO THAT IS RACA 

7010 ’ ated 

7011 gee 

70i2 3ee 1 THE REGISTERS CONTENTS ARE SAVED IN “REINTO" BUFFER 

7013 ee 2 WRITE HEADER AMD DATA IS STARTED 

7014 gre 3 ATTEMPT IS WADE TO WRITE INTO REGISTERS 

7015 gee 4 ALL REGISTERS ARE COMPARED 

7016 

70 7 3 3 SKAASSSKSCARAASAKASATASAASSKRSARASKLASARAARAKSKATSHSSASKSRSRLASK SHRRAARAREAAeee 

701% 0342706 000004 TST77: SCOPE 

7019 

7020 034210 012706 001000 MOV #STACK,SP sRESET STACK 

7021 034214 012737 000077 002032 NOV STTRO, @STSTRM STHIS SAVES TEST BUMBER 

7022 034222 004737 042534 JSR PC, @#CLDISK sCLEAR DISK 

7023 034226 004737 042570 JSR PC, @SCHECKT sCHECFR THAT OVA,RDY,DPR,DRY = 1 

7024 034232 104401 062145 TYPE eCPHALT 3AUD THAT HO OTHERS = 1. CANNOT CON- 

7025 STINUE TESTING ITF BOTH AREN°T TRUE 

7026 034236 000000 HALT 3STOP TRE TEST 

7027 034240 012700 001652 MOV BRHCA, RO 

7028 034244 012005 1852 MOV (RO )o,RS 3@5 HAS ADDRESS OF REG. UNDER TEST 

7029 034246 052777 000040 145362 2$: BIs #CLR,@RHCS2 

7030 034254 013777 001774 145354 MOV QPUNIT, @RHCS2 sREINSTATE UNIT HO. 

7031 

7032 3*SET UP FOR AN OPERATION (WRITE NEADER AND DATA) 

70323 

7034 034262 013777 002064 145350 MOV Q@QURIFOR,@RHCS] ;WRITE HEADER AND DATA=62 

7035 318 RACS1 

7036 034270 012777 177766 145334 MOV #-10., @RHWC 310 wOoRDS 

7037 034276 012777 002110 145330 MOV #WRFROM,@PHRA 3BUS ADDRESS = WRFROK 

7038 034304 012777 000010 145332 MOV #10, @RHDST sDESIRED TRACK=0, SECTOP=10 

7039 034312 052777 000010 145316 BIS SBAI,@RHCS2 3BUS ADDRESS INCREMENT INHIBIT 

7040 034320 012777 010000 145322 MOV SFMNT22, @RHOF sFOPMAT 16 SIT WORDS 

— 034326 005077 145320 CLR @PHCA sCYLINDER =0 

1043 3*SAVE REGISTERS 

71044 

7045 034332 004037 043226 JSR RO, @#SAVER sSAVE 

7046 034336 001640 RHCS1 3FROM 

7047 034340 003154 REINTO 270 

7048 034342 000016 i4. SWUPBER OF PEGISTERS SAVED 

7049 

7050 3*°NOW THE COMMAND IS GIVES TO 

7051 s*WRITE HEADER AND DATA FOR CYL=0, SECTOR=10 

7052 3*TRACK=C IT COMES BACK AFTER OWE SECTOR 

ee 3°HAS PASSED 


RIV 











< 
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7055 034344 012777 000001 145306 MOV 8DND, @RANR 3SET DEAGWOSTIC NODE 
7056 034352 005277 145262 rnc eRHCS1 360 TO RHCS1 WITH 62 « 
7057 034356 012715 177672 mov #177672, eRS #TRY WRITING ALL BITS EXCEPT 
7058 360, RMR, IE 
7059 034362 052737 000001 003174 Bis #DND, @SPETNTO+20 3SET DMD IW SAVED REGISTER RHNR ¶ 
7060 034370 052737 000004 003156 BIS @RMR, QPREINTO*2 ZSET RMR IN SAVED REG. RHERI 
7061 034376 042737 000200 003176 BIC SDRY, @BRETHTOs 22 sCLEAR DRY TB RHDSI 
7062 034404 052737 040000 003176 BIs SERR, QGRETNTOC22 3SET ERR Te RADSI < 
7063 034412 052737 000001 003154 dis #CO, @#REINTO 3SET GO IW SAVED REG. RACS1 
7064 034420 042737 000200 003154 BIC @ROY,QGREINTO  j;CLEAR POY BIT P 
7065 
7066 3*AFTER AN ATTEMPT TO WRITE INTO A RECISTER 
7067 3*SAVE REGISTERS AGAIN SO THAT COWPARES CAB BE DONE q 
7069 034426 004037 043226 JSR RO, RESAVER 3SAVE 
7070 034432 001640 RACS1 3FROM 
7071 034434 002110 wRFROM 370 <q 
1072 034436 000016 14. sRUNBER 
073 
7074 3*AS UPPER BYTE OF RHAS CAN BE CHANGING IW A DUAL PORT « 
7075 *OPERATION THE UPPER BYTE OF RAAS WILL BE SAVED AS IS 
7076 3*SO THAT THE COMPARES ARE ONLY WALID FOR THE LOWER BYTE 
7077 034440 113737 003173 002127 MOVB @PREINTOC17, QFURFPOWCL7;SAVE UPPER RHAS | 
7078 
7079 
7080 3*COMPARE REGISTERS BEFORE ATTEMPTED WRITE WITH AFTER « 
7081 
7082 034446 004037 043430 JSR RO, @ECOMPAR 3COMPAR 
7033 034452 003154 REINTO 3CO BUFFER | 
7084 034454 002110 wRFROW 3TEST BUFFER 
7085 034456 000016 14. > NUMBER 
7036 034460 034466 4s #RETURN FOR ERROR | 
7087 034462 034466 4$ 3SAWE 
7088 034464 034506 5$ 3PETURN FOR GOOD COMPARISON 
7089 034466 013705 047320 4s: MOV e#ERWORD, PS 3CETTING PEADY TO INDEX | 
7090 034472 060505 ADD R5,RS DOUBLE ERROR WORD 
7091 034474 016537 001636 042204 MoV RHCS1-2(RS),@#REGADR 3FAILING REG. ADDRESS 
7092 034502 104001 ERROR 1 sCOWTENTS OF REGISTER | 
7093 034504 000207 RTS Pc 3CHANGED WITH 
7094 3AN ATTEMPT TO WRITE 
7095 DURING AW OPERATION <q 
1096 3*THE FOLLOWING CLEAR MAY SET THE ATA BIT BECAUSE CO IS HIGH 
7097 3* 
709% 034506 004737 042534 5$: JSR PC, @SCLDISK 3CLEAR DISK q 
7099 
7100 


cy 
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7101 
7102 
7103 33 — XX 
7104 s*TEST 100 MAKE CURRENT CYLINDER = 1 
7105 3 SARASKAKSKAARAARARAKALAKRAAARARAAARAAARAARAAAARARAAARELAHAAAeReAeAeeeeee 
7106 034512 000004 TST100: SCOPE 
7107 034514 012706 001000 mov @STACK, SP sRESET STACK 
710% 034520 012737 000100 002032 Mov STTNO,QSTSTNN  ZTHTS SAVES TEST HUMBER 
7109 034526 004737 042534 use PC, @CLDISK pTNIT DRIVE 
7110 034532 012777 000001 145120 mov #0MD, @RHMR 3SET DIAGNOSTIC MODE 
7111 034540 004037 045106 JSR RO,@SMAFECYL = SUBROUTINE TO GIVE A SEEK 
7112 3COMMAND POLOWED BY AN INIT 
7112 STHIS SROULO CHANCE RACC 
7114 034544 000001 1 3CHANGE RECC TO i 
7115 
7116 
7117 
7118 3 ————————— —————— ————————ο 
7119 S*TEST 101 ERROR REG] - BIT #7 - HEADER COMPARE ERROR 
120 
7121 see THE SIMULATED DISK IS SET TO READ CYLINDER=0, TRACK=1 
7122 3e8 SECTOR=1, KEYS=1, 256 WORDS OF 177400 
7123 —8 A READ HEADER AND DATA COMMAND IS GIVEN TO READ 
7124 3** CYLINDER=1, TRACK=1, SECTOR=1, REYi=1, KEY2=1 
7125 —X REINTO BUFFFR IS FILLED wITH 0 
7126 3ee WRFROM IS FILLED WITH 10000,401,1,1,1, AND ALL 177400 
7127 zee AFTER TRE READ THE REINTO BUFFER IS EXPECTED TO 
7128 pee HAVE WHAT IS Im WREPOM - 10000,401,1,1 AND ALL 177400 
7 : 30 3 SSEKAASSeSAeHA*Keeageseeeeeeeeesaeaeseagarenarereeeeaeeenenaneraeeaeeeese 
7131 024546 000004 TST101: scoet 
7132 
7133 
7134 034550 012706 001000 MoV @STACK, SP sRESET STACK 
7135 034554 012737 000101 002032 MOV STING, QPTSTNM  ZTHIS SAVES TEST WUNBER 
7136 034562 005037 047314 CLR eenosvac 3SET FLAG SO THAT DATA SYNC 
7137 3AND DATA IS READ 
7138 
7139 s*FILL SIMULATED DISK 
1 
7141 034566 004737 044216 JSR PC, @SSETDSK 3SET UP SIMULATED DISK 
7142 
7143 d*FILL REINTO BUFFE® WITH 0 
144 
7145 034572 004037 042452 JSR RO, @SCLAREA sFILL REINTO BUFFER 
7146 034576 003154 REINTO 3FROM LOCATION 
7147 034600 004154 REINTO*<256.*?> 370 LOCATION 
1148 034602 000000 0 sDATA 
149 
7150 s°FILL WRFROM @ITH 10000,401,1,1, AYO ALL 177400 
151 
7152 034604 012700 002110 mov #WRFROM, RO 
7153 034610 012720 010000 MOV #FMT22,(RO)* (310000 INTO WREPOM 
7154 034614 012720 000401 MOV #401, (RO )* 3401=TRACK1,SECTOR1 
7155 034620 012720 000001 MOV #1,(RO)* 31 INTO WRFROWe 
7156 034624 012720 000001 mov #1,(R0)+ 31 INTO WREPONSS 


b/Y 
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7157 
7158 a*FILL ALL O 
7159 
7160 034630 004037 042452 JSR RO, @BCLAREA sPILL WRFRON 
7161 034634 002120 WRFRONC10 FROM 
7162 034636 003110 URFROMe< 256. °*2> 270 
338 034640 177400 177400 sDATA 
7165 3*HOW GIVE A READ HEADER AND DATA COMMAND 
7166 s*CYLINDER=1 
7167 s*TRACK = 1 
7168 s*SECTOR = 1 
7169 
7170 034642 004037 044344 JSR RO, @BHCCRCE 
7171 034646 000072 72 3PEAD HEADER AND DATA 
7172 034650 000001 1 sCYLINDER 
7173 034652 000001 1 sSECTOR 
7174 034654 000001 1 sTRACK 
7175 034656 177400 -256. 3wORD CouUNT 
7176 034660 003154 RE INTO sPHBA BUFFER 
So 034662 000000 0 sREAD 
1 
7179 034664 000001 i SHEADER COMPARE 
eee 034666 000240 1S: woP SRETURE POINT FROM HCCRCE 
131 
718°? 


ely 





LL a. a a Aa A Aa A LA A a LA A A 


_. a 
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7183 
7184 
7185 
7186 
7187 
7188 
7189 
7190 
7191 
7192 
7193 
7194 
7195 
7196 
7197 
7198 
7199 
7200 
7201 
7202 
7203 
7204 
7205 
7206 
7207 
7208 
7209 
7210 
7211 
7212 
7213 
7214 
7215 
7216 
7217 
7219 
7219 
7220 
7221 
7222 
7223 
7224 
7225 
7226 
7227 
7228 
7229 
7230 
7231 
7232 
7233 
7234 
7235 
7236 
7237 
7238 


034670 
034672 
034676 
034704 
034710 
034716 


034722 


034724 


034726 
034732 
034740 


034744 


034750 
034754 
034756 
034760 


034762 
034766 
034772 
034776 
035002 


29-MAP-76 00:00 


000004 
012706 
012737 
004737 
012777 
004037 


012706 
012737 
005037 


004737 


004037 
003154 
004154 
000000 


012700 
012720 
012720 
012720 
012720 


001000 
000102 
042534 
000001 
045106 


001000 
000103 
047314 


044216 


042452 


002110 
010000 
000401 
000001 
000001 


002032 
144742 


002032 


7101 


ERROR REG1 - BIT #7 - HEADER COMPARE FRROR 


3*TEST 102 MAKE CURRENT CYLIWDER = 0 


TST102: SCOPE 


MOV @STACK, SP sRESET STACK 

nov STTHO,OSTSTEM  ZTHIS SAVES TEST HUMBER 
JSR PC, @SCLDISK STUIT ORIVE 

NOV @DMD, QRHMR dSET DIAGHOSTIC MODE 


JSR RO, @SPARECYL sSUBROUTIBVE TO CIVE A SEEK 
sCOMMAND POLOWED BY AN INIT 
sTHIS SSOULD CHANGE RCC 

0 sCHANGE RACC TO 0 


FTAAHS SAS AAAAHAAAAAAHSAAAAAAEHSAHHERAAKAAHAKAAHASRAAEAAAASAAKeeeee 


s*TEST 103 ERROR REG1 - RIT #7 - HEADER COMPARE ERROR 
3** THE SIMULATED DISK IS SET TO READ CYLINDER=0, TRACK=1 
SECTOR=1, KEYS=1, 256 WORDS OF 177400 

gee A READ HEADER AND DATA COMMAND IS GIVEN TO READ 

9 CYLINDER=0, TRACK=0, SECTOR=1, KEVi=1, KEY2=1 

y= REINTO BUFFER [S FILLED WITH 0 

poe WRFROW TS FILLED WITH 10000,401,1,1,1, AND ALL 177400 
= AFTER TRE READ THE REINTO BUFFER IS EXPECTED TO 

ie HAVE WHAT IS IM BRFROM - 10000,401,1,1 ABD ALL 177400 


Zp MHA eeeeeaeeaeaneaeaenekeraeeaaeeeaeaverereneenerenerasaaageneeee 


TST103: SCOPE 


MoV @STACK,SP sRESET STACK 
MoV STTWO,@CTSTNM ZTHIS SAVES TEST WUMBER : 
CLR @eNOSYNC sSET FLAG SO THAT DATA S¥RC 


3AND DATA IS READ 
s*FILL SIMULATED DISK 
JSR PC, @8SETDSK 3SET UP SIMULATED DISK 
s*FILL REINTO BUFFER WITH 0 


JSR RO, @SCLAREA SPILL REIRTO BUFFER 
REINTO sFROM LOCATION 

RE IWTO*<256.*2> 270 LOCATION 

0 aDATA 


3*FILL WRFEROM WITH 10000,401,1,1, AND ALL 177400 


wov SURFROM, RO 

MOV #FMT22,(RO)D* 310000 INTC WRFRCH 
MOV #401,(R20)¢ 3401=TRACK1,SECTOR1 
MoV 81, (RODe 31 INTO URFROMe 
MOV #1,(RO)¢ 31 INTO BRERONSS 


FIY 


MNDEC-11-DZRJC-A,RP04/5/6 DSKLS yenmmoncnes —* yediag | 1 


DZRJGA.P1I1 


7239 
7240 
7241 
7242 
7243 
7244 
7245 
1246 
7247 
7248 
7249 
7250 
7251 
7252 
7253 
71254 
7255 
7256 
7257 
72593 
7259 
7260 
7261 
7262 
1263 


035006 
035012 
0735014 
035016 


035020 
035024 
035026 
035030 
075032 
035034 
035036 
035040 


035042 
035044 


29-YAR-76 00:00 


004037 
002120 
003110 
177400 


004037 
000072 


000001 
000000 
177400 
003154 
000000 


000001 
000240 


042452 


044344 


1s: 


MACY11 30(1046) O8-DEC-77 13:57 PAGE 165 


ERROR REG] - BIT 87 - HEADER COMPARE ERROP 


s*FILL ALL 0 


JSR RO, @SCLAREA 
WRFROMC10 

WREROM*< 256.°?> 
177400 


sPILL WRFPOW 
3 FROM 


a*uOW GIVE A READ HEADER AND DATA COMMAND 


a*CYLINDER=0 
3*TPACK = 0 
s*SECTOR = 1 


a RO, O@BHCCRCE 


i 
NOP 


SREAD HEADER AND DATA 
sCYLINDER 

sSECTOR 

sTRACK 

3WORD COUNT 

3RHBA BUFFEP 

sREAD 


sHEAGFR COMPARE 
SRETURH POINT FROM HCCRCE 


GH 





Aa a a a a Aa a a Aa Aa Aa A 





a a a Aa a a a 





MNDEC-11-DZRJG-A,RP04/5/6 DSKLS CONTROLLER TST-PT 1 MACY11 30(1046) O06-DEC-77 13357 PACE 166 
OZRIGA.P11 29-MAR-76 00:00 T103 ERROR REG] - BIT #7 - HEADER COMPARE ERROP 
7264 
1265 ppeMeeeeeneerenenaneeeeeaaaareccessenenenarenanereseneenenereenes 
7266 s*TEST 104 MAKE CURRFNT CYLINDER = 1 
71267 seenerantereenaancernceenesearerneanseneeeenanreneneneerneesnes 
7268 035046 000004 TST104: SCOPE 
7269 035050 012706 001000 nov @STACK, SP sRESET STACK 
7270 «#035054 012737 0001904 002032 nov STTHO,@PTSTHM ZTHIS SAVES TEST NUMBER 
7271 035062 004737 042534 JSR PC, @8CLDISK sTUIT ORIVE 
7272 «#035066 012777 000001 144564 nov #DMD, QRHAR dSET OLAGHOSTIC MODE 
7273 035074 004037 045106 JSR RO, Q@@MAKECYL sSUPROUTINE TO GIVE A SEEK 
7274 sCOMMAND FOLOWED BY AN INIT 
7275 STHIS SHOULD CHASCGE aucc 
7276 035100 000001 1 SCHANGE RCC TO 1 
7277 
7278 
7279 
7280 pptteeneeeveneceneececesseneneeenesenenengeesenenanaenesenesennere 
7281 s*TEST 105 ERROR REG.1 - BIT 87 - HEADFR COMPARE ERROR 
71282 
7283 gee THE SIMULATED DISK IS SET UP FOR CYLINDER=0, TRACK=1 
7784 = SECTOR=1, KEYS=1, 256 WORDS OF 177400 
7285 8 A WRITE DATA COMMAND IS GIVEN TO WRITE CYLINDER=1 
7286 gee TRACK=1, SECTOR=1, KEVi=1, KEY2=1 
7287 3** WRFROW BUFFER IS FILLED WITH 125252 
7288 gee REINTO BUFFER IS FILLED WITH 177400 
7289 3** AFTER THE WRITE COMMAND THE DISK IS EXPECTED TO 
be y= HAVE 177400 
be XXEE 
7293 035102 000004 TST105: SCOPE 
1294 
72958 
7296 035104 012706 001000 MOV @STACK, SP sRESET STACF 
ae. 035110 012737 000105 002032 MoV QTTNO,@S8TSTNM ZTHIS SAVES TEST HUMBER 
8 
7299 035116 012737 177777 #047314 MOV #-1, @enOSYAC sSET FLAG SO THAT DATA Sy¥RC 
7300 3AND DATA IS WOT READ 
7301 
heb d*FILL SIMULATED DISK 
30 
7304 035124 004737 044216 JSR PC, @SSETDSK sSETUP SIMULATED DISK 
7305 
hee S*FILL WRFROM WITH 125252 
0 
7308 035130 004037 042452 JSR RO, @@CLAREA SPILL BRFROY BUFFER 
7309 035134 002110 WRFROM 3FROM LOCATION 
7310 035136 003110 WRFROW*<256.*2> 3TO LOCATION 
7311 035140 125252 125252 sDATA 
7312 
7313 3*FILL REINTO @ITH 256 WORDS OF 177400 
7314 J*TRIS TS WHAT IS EXPECTED TO BE ON DISK EVEN AFTER 
7316 3°AN ATTEMPT TO BRITE 125252 
7316 
7317 035142 004037 042452 JSR RO, @SCLAREA sFILL RELSTO BUFFER 
7318 035146 003154 REIWTO 3FROmM LOCATION 
7319 035150 004154 RE INTO*<256.*%2> 270 


Hit 





MNDEC-11-DZRJG-A, RPO04/S/6 OSKLS CONTROLLER TST-PT 1 MACY11 30(1046) O08-DEC-77 13:57 PAGE 167 
OZRIGA.P11 29-MAR-76 00:00 T105 ERROR REG.1 - BIT 87 = HEADER COMPARE ERROR 
bay 035152 177400 177400 
1 
7322 3*NOW GIVE A WRITE DATA COMMAND 
7323 s*CYLINDER = 1, 
7324 3*TRACK = 1 
7325 3*SFCTOR =i 
7326 
7327 035154 004037 044344 JSR RO, RBACCRCE 
7328 035160 000060 60 SWRITE DATA 
7329 035162 000001 1 sCYLINDER 
7330 035164 000001 1 3 SECTOR 
7331 035166 000001 1 aTRACF 
7332 035170 177400 -?56. dWORD COUNT 
7333 035172 002110 wRFEPOM sPHPA BUFFER 
ey 035174 000001 i sWRITE 
7335 
7336 035176 000001 1 sHEADER COMPARE 
7337 035200 000240 1$: woe sRETURM POINT FROM HCCRCE 


7338 








MNDEC-11-DZRJG-A,RPO04/5/6 DSKLS ——"a  h i MACY11 30(1046) O8-DEC-77 13:57 PAGE 1686 


OZRJGA.P11 


7339 
7340 
7341 
734°? 
1343 
7344 
7345 
71346 
7347 
71348 
7349 
7350 
7351 
71352 
1333 
71354 
7355 
1356 
7357 
7358 
7359 
71360 
7361 
7362 
1363 
71364 
71365 
71366 
7367 
7368 
1369 
7370 
7371 
7372 
7373 
71374 
7375 
1376 
7377 
7378 
7379 
7380 
7381 
7382 
7383 
71364 
7385 
71386 
7387 
7368 
7389 
7390 
7391 
71392 
7393 
71394 


035202 
035204 
035210 
035216 
035222 
035230 


035234 


035236 


035240 
035244 


035252 


035260 


035264 
035270 
035272 
035274 


035276 


29-MAR-76 00:00 


000004 
012706 
012737 
004737 
012777 
004037 


000004 


012706 
012737 


012737 


004737 


004037 
002110 
003110 
125252 


004037 


001000 
000106 
042534 
000001 
045106 


001000 
000107 


177777 


044216 


042452 


042452 


002032 
144430 


002032 
047314 


ERROR REG.1 - BIT 87 - HEADER COMPAPE ERROR 


PP TAAMAAAASA Aa SAA AARAAHHAAAAAHSHERAAAARAS HARARE RHAARAAAAAOAAAREAEE 


s*TEST 106 MAKE CURRFNT CYLINDER = 0 
Jp eMAMeKeeererenneneananenaeeeeeaeaeneeeennenesenaneneaeneeeeeeee 


TST106: SCOPE 


“ov @STACK, SP sRESET STACK 

nor STTNO,C#TSTHN ZTHIS SAVES TEST RUMBER 
JSR PC, @SCLDISK sTUIT ORIVE 

MoV #DMD, QRAMR #SET DIAGNOSTIC MODE 


JSR RO, @EMARECYL sSUBROUTINE TO GIVE A SEEK 
3COMMAND FOLOWED BY AN INIT 
STHIS SHOULD CHANGE RACC 

0 SCHANGE RHCC TO 0 


PPTAAMAAAAA VVV 


s*TEST 107 ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR 
—8 TRE SIMULATED DISK IS SET UP FOR CYLINDER=0, TRACK=1 
~~ SECTOR=1, KEYS=1, 256 WORDS OF 177400 

goo A WRITE DATA COMMAND IS GIVEN TO WRITE CYLINDER=0 
3ee TRACK=0, SECTOR=1, KEVI=1, KEY2=1 

9e WRFROW BUFFER IS FILLED WITH 125252 

goes REINTO BUFFER IS FILLED WITH 177400 

— AFTER THE WRITE COMMAND THE DISK IS EXPECTED TO 

a HAVE 177400 


TST107: SCOPE 


MoV @STACK, SP sRESET STACK 
MoV QTTNO,@STSTNM ZTHIS SAVES TEST NUMBER 
Mov @-1, @eNOSYNC 3SET FLAG SO THAT DATA srac 


3AND DATA IS MOT PEAD 
S*FILL SIMULATED DISK 


JSR PC, @#SETOSK sSETUP SIMULATED DISK 
S*FILL WREROM WITH 125252 

JSR RO, @BCLAREA SPILL BREROW BUFFER 
WRFROM 3FROM LOCATION 
WRFROM*<256.*°*?> 270 LOCATION 

125252 sDATA 


S*FILL REINTO WITH 256 WORDS OF 177400 
a*THIS IS WHAT TS EXPECTED TO BE ON DISK EVEN AFTER 
3*AN ATTEMPT TO WRITE 125252 


JSR RO, RSCLAREA dFILL REINTO BUFFER 


xi 


MNDEC-11-DZRJG-A, RPO4/S/6 DSKLS — * 4 


OZRIGA.P11 


035302 
035304 
035306 


035710 
035314 
035316 
035320 
03532? 
035324 
035326 
035330 


035332 
035334 


29-MAR-76 00:00 


003154 
004154 
177400 


004037 
000060 
000000 
000001 
000000 
177400 
002110 
000001 


000001 
000240 


044344 


1$: 


MACY11 30€1046) 08-DEC-77 13:57 PAGE 169 


ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR 


REINTO 
REINTO*< 256. *2> 
177400 


3*NOW GIVE A WRITE DATA 
3*CYLINDER = 0, 

e*TRACK = 0 

3*SECTOR =1 


JSR RO, @#HCCRCE 


3PROM LOCATION 
270 


COMMAND 


SWRITE DATA 
sCYLIWDER 
sSECTOR 
STRACK 

3¥VORD COUNT 
SRHBA BUFFER 
sWRITE 


sHEADER COMPARE 
sRETURM POINT FROM HCCRCE 


ly 














MNDEC=11-DZRJG-A,RP04/S/6 OSKLS CONTROLLER TST-PT 1 MACY11 30(1046) 08-DEC-77 13:57 PAGE 170 
DZRIGA.P11 29-MAR-76 00200 7107 ERROR REG.1 - BIT #7 = HEADER COMPARE ERROR c 
7416 
7417 < 
741 q 33 SRARARAARAAAAKAKRARARAKRAARHRARARARAAARAAARARARAARSARAAARARARAAAAAAAAeeeee 
7419 3*TEST 110 RHER1 - BIT #8 = CRC FRROR (READING) P 
7420 
7421 pee TRE SIMULATED DISK IS SET TO READ CYLINDER®=0, TRACK=1 
742? pee SECTOR=1, KEYS=1, 256 WORDS OF 177400 
7423 3ee A READ HEADER AWD DATA COMMAND IS GIVEN TO READ < 
7424 pee CYLINDER=0, TRACK=1, SECTOR=1, KEYi=1, KEY2=1 
7425 yer REINTO BUFFER IS FILLED wItH 0 
1426 388 WRFROM TS FILLED WITH 10000,401,1,1,1, AWD ALL 177400 c 
7427 pee AFTER TRE READ THE RETNTO BUFFER IS EXPECTED TO 
7428 320 HAVE WHAT IS IN WRFROM - 10000,401,1,1 AND ALL 177400 P 
7430 33 IIIIIIIOX 
7431 035336 000004 TST110: SCOPE 
1432 € 
7433 
7434 035340 012706 001000 mov @STAacn,sP sRESET STACK 
7435 035344 012737 000110 002032 Mov QTTWO,QNTSTNM THIS SAVES TEST wUMBER « 
7436 035352 005037 047314 CLR e#uosvuc 9SET FLAG SO THAT DATA SYNC 
7437 3AND DATA IS READ 
7438 < 
7439 3*FILL SIMULATED DISK 
7440 
7441 035356 004737 044216 JSR PC, @#SETDSK 3SET UP SIMULATED DISK ¢€ 
7442 035362 005137 051100 con eeucrc 3CHANCE CRC TO GIVE HCRC 
443 
7444 S*FILL RETNTO BUFFER WITH 0 < 
7445 
7446 035366 004037 042452 JSR RO, @ECLAREA SPILL REINTO BUFFER 
7447 035372 003154 ; REINTO 3FROM LOCATION < 
7448 035374 004154 REINTO*< 256. *2> 3T0 LOCATION 
7449 035376 000000 0 3DATA 
7450 < 
1451 s*FILL WRFROM WITH 10000,401,1,1, AND ALL 177400 
45? 
7453 035400 012700 002110 mov #¥RFRON, RO < 
7454 035404 012720 010000 mov @FMT22,(RO)* 310000 INTO WRFROM 
7455 035410 012720 000401 MOV #401, (RO eo 3401=TRACK1,SECTORI 
71456 035414 012720 000001 MoV #1, (RO)* 31 TNTO WREROMe <q 
1457 035420 012720 000001 Mov #1,(RO)* 31 INTO WRFROMCS 
7459 p*FILL ALL 0 | 
7460 
7461 035424 004037 042452 JSR RO, @OCLAREA —X 
1462 035430 002120 WREROMS10 3FRON 
7462 035432 003110 WRFROM¢< 256. *2> >TO 
7464 035434 177400 177400 3DATA 
465 
1466 2*NOW GIVE A READ HEADER AND DATA COMMAND 
7467 ?*CYLINDER=0 
7468 2*TRACK = 1 4 
7469 3*SECTOR = 1 
7470 Al 


7471 035436 004037 044344 JSR RO, SPHCCRCE 





MNDEC-11-DZRJG-A, RPO4/5/6 DSKLS ereen * 1 


|) OPZRJGA.P11 


7472 
7473 
7474 
7475 
7476 
7477 
7478 
7479 
7480 
7481 
7482 
7483 


035442 
035444 
035446 
035450 
035452 
035454 
035456 


035460 
035462 


29-MAR-76 00300 


000072 
000000 
000001 
000001 
177400 
003154 
000000 


000000 
000240 


1$3 


MACY11 30(1046) O08-DEC-77 13357 PAGE 171 


RHER1 - BIT #6 - CRC ERROR (READING) 


72 


SREAD HEADER AND DATA 
sCYLINDER 

sSECTOR 

STRACK 

SWORD COUNT 

SRHBA BUFFER 

READ 


aCRC ERROR 
SRETURH POINT FROM HCCRCE 


miy 





| 


— 


MNDEC-11-DZ8JG-A, RPO4/5/6 DSKLS CONTROLLER TST-PT 1 MACY11 30(1046) O8-DEC-77 13:57 PAGE 172 

DZRIGA.P11 29-MAR-76 00200 T110 RPEPL - BIT #® - CRC ERRO® (READING) | 
7484 
7495 | 
7496 3 3 REKRSNKSKAAAASKAATARAARAAHKAHRASHSHTAKAHARTKRAHAAHRAERAEReLeeaneReaeanearaeece 
7487 s*TEST 1il RHERA - BIT 8 = CRC ERROR (WRITING) 
7489 | 
7489 3*e THE SIMULATED DISK IS SET UP FOR CYLINDER=0, TRACK=1 
7490 3** SECTOR=1, KEYS=1, 256 WORDS CF 17740¢ 
7491 zee A WRITE DATA COMMAND IS GIVEN TO WRITE CYLINDER=0 | 
7492 3 TRACK=1, SECTOR=1, FEVI=1, FEY2=1 
7492 3e8 WRFROW BUFFER IS FILLED #ITH 125252 
7494 zee REINTO BUFFER IS FILLED WITH 177400 | 
7495 3° AFTER THE WRITE COMMAND TYE DIS® IS EXPECTED TO 
1496 see HAVE 177400 
7497 \ 
7499 33 SKKRSARAKRAKRARAERAASKRAARARAAARAEKRAAHRARARAReEKAReketeeneaesenenese2eeaa2nene2ece 
7499 035464 9000004 TST111: SCOPE 
750¢ | 
7501 
7502 035466 012706 001000 . MoV aSTACk,SP sPESET STACK 
7503 035472 012737 000111 002032 MOV STTNO,Q@8TSTNM ZTHIS SAVES TEST NUMBER | 
7504 
7505 035500 012737 177777 047314 MOV #-1, @eNOSYNC 3SET FLAG SOM THAT DATA S¥RC 
7506 32ND DATA IS NOT PESD | 
7507 
ae s*FILL SIMULATED DISK | 
7510 035506 004737 044216 JSR PC, R#SETDSK 3SETUP SIMULATED DISK 
ysat 035512 005137 051100 com e@ewcre sCHANGE CRC TO GIVE HCRC | 
ys s*FILL WREROM WITH 125252 
514 
7515 035516 004037 042452 JSR RO, @SCLAREA FILL wPFROW BUFFER | 
7516 0735522 002110¢ wRFROW 3FROM LOCATION 
7517 035524 003110 WRFROMS<256.*2> 3T0 LOCATION 
pause 035526 125252 125252 sDATA 
519 
7529 3*FILL REIKTO @ITH 256 WORDS OF 177400 
7521 3*THIS 1S WHAT ITS EYPECTE? 7C BFE ON DISK EVEN AFTER | 
ayo: 3*AN ATTEYPT TO BRITE 125252 
5 
7524 635530 004037 042452 JSR RO, 24CLAREA sFILL RFINTO PUFFER 
7525 035534 003154 REINTO 3FROM LOCATION 
7526 035536 004154 REINTO*<¢256.*2> 370 
7527 035540 177400 177400 
7528 
7529 3*NOW GIVE A WRITE DATA COMMAND 
7530 s*CYLINDER = 0, 
7531 e*TRACK = 1 
7532 3*SECTOP = 1 
7533 \ 
7534 035542 004037 044344 JSR RO, A#HCCRCE 
7535 035546 000060 60 sWRITE DATA 
7536 035550 000000 0 sCYLINDER 
7537 035552 000001 1 sSECTOR AS 
7538 075554 000001 1 7 TRACK 
7539 035556 177400 -256. 3WORD COURT 





—— —— —— —— —— ——— — — — 


MNDEC-11-DZRJG-A, RPO4/5/6 DSKLS CONTROLLER TST-PT 1 
OZRIGA.P11 


7540 
7541 
7542 
7543 
7544 
7545 
71546 


035560 
035562 


035564 
035566 


29-MAR-76 00:09 


002110 
000001 


000000 
000240 


MACY11 30(1046) OQ8-DEC-77 13:57 PACE 173 


Till RHER1 - BIT 6 - CRC ERROR (WRITING) 


1$: woP 


sPHBA BUFFER 
sWRITE 


scrc ERPOR 
sRETURN POINT FROP HCCRCE 


els 








MNDEC-11-DZRJG-A, PP04/5/6 DSKLS CONTROLLER TST-PT 1 
DZRIGA.P11 29-MAR-76 00:00 Tlil 


7547 
7548 
7549 
7550 
7551 
7552 
7553 
7554 
7555 
7556 
7557 
7558 
7559 
7560 
7561 
7562 
7563 
71564 
7565 
71565 
7567 
756" 
7569 
7579 
7571 
7872 
7573 
7574 
7575 
7576 
7577 
7878 
7579 
7580 
75861 
7582 
7583 
7584 
7585 
7586 
7587 
7588 
75939 
7590 
7591 
7592 
7593 
7594 
7595 
7596 
71597 
7598 
7599 
7600 
7601 
7602 


035570 
035574 
035576 
035600 
035604 


005737 tst 

001401 BEQ 

000402 BR 

000137 036254 2$: JuP 
252 


002036 


s*TEST 112 


035604 
035606 
035612 
035620 
035624 
035632 


000004 
012706 
012737 
004737 
012777 
004037 


TST112: SCOPE 
001000 
000112 
042534 
000001 
045106 


002032 
1440 26 


035636 001456 


s*TEST 113 


3*e 
3e* 
3** 
3ee 
3e¢ 


035640 000004 TST113: SCOPE 


035642 
035646 


035654 
035660 
035662 
035664 


012706 
012737 


004037 
051116 
052142 
000000 


001000 
000113 


042452 


MOV 
002032 MOV 
JSR 
WORD 
e¥ORD 
WORD 


035666 012737 011456 047200 MOV 





MACY11 30(1046) 


O8-DEC-77 13:57 PAGE 174 


RHER1 - BIT 6 - CRC ERROR (WRITING) 


3*SET UP FOR THE TWO LAST SECTOR TRANSFERRED TESTS FOLLOWING 


Pp TAM eeeeeereveeeeneeeaesagaeeeeaearereenaageeneneenkerereneaeerersaere 


@SRPOG ZMOVE RPOG FLAG TO ITSELF TO TEST 


2$ 
3$ 
e#D0c 


sTF = 0 TREAT DRIVE AS RPO4 
sTREAT AS RPOG6 - DU MEXT “MAKECL™ 6&6 TEST 
3D0 SECOND FOLLOWING “MAKECL™ ABD TEST 


PP TAMA MA areca KeVKaeeeaeeneaaeeeneeeeeneneereeerageasenaeaeeeseeeee 


PP TAAAASAA A ee HAS — 


MAKE CURRENT CYLINDER = 614. 


@STACK,SP 
#TTNO, OS TSTNM 
PC, @@CLOISK 
SOND, @RAMR 
RO, @QMAFECYL 


ZF STASASS SA ASAAASAAA SALAH 


sRESET STACK 

sTHIS SAVES TEST NUMBER 
sIMIT DRIVE 

3SET DIAGHOSTIC MODE 
sSUBROUTINE TO GIVE A SEEK 
3COMMAND FOLOWED BY AN INIT 
STHIS SHOULD CHANGE kHCC 
sCHANGE RACC TO 814. 


JP TMAMAAASLAAASKSAAAASHASHSAAASHARAALASKALSHRAAAAAHHHAARSAAAKAAHAAeeee 


RHDS1 (BIT #10) - LAST SECTOR TRANSFERRED, “LST” 


#STACK,SP 
sTTNO, @#TSTNM 


RO, @SCLAREA 
DISK 
TOLGAP+16 

0 


s*TRESE ARE SETUP FOR DISFLESS USE ONLY 


WRITE CYLINDER 814., FORMAT 16 BITS PER WORD 

TRACK 18.2, SECTOR 21.4 KEYS 0, NUMBER OF WORDS 
256., OF 377 
*LST° BIT # 10 - PHNSI, SHOULD SET AFTER WRITE 
IS COMPLETE. 


sRESET STACK 
sTHIS SAVES TEST NUMBER 


sCLEAR SIMULATED DISK 
3FRON 

270 

3DATA 


Cie 


8014. 0FMT22,@8CYLSCYLINDER 914. 


716 BITS PEP WORD 


MNDEC-11-DZRJG-A, RPO4/5/6 DSKLS CONTROLLER TST-PT 1 MACY11 30(1046) O08-DEC-77 13:57 PACE 175 
DZRIGA-P11 29-MAR-76 00:00 T113 RHDS1 (BIT #10) - LAST SECTOR TRANSFERRED, “LST° 

7603 035674 112737 000022 047203 move #16.,@8SECOTReI;TRACK 18. 

7604 035702 112737 000025 047202 Move €21.,88SECOTR 3SECTOR 21. 

7605 035710 005037 047704 CLR O#KEY1 sFEV1 O 

7606 035714 005037 047206 CUR @eKEY2 sREY2 0 

7607 035720 012737 000400 047246 MoV #256.,@8N0WU0RD 380 OF DATA WORDS 

7608 035726 012737 000001 047210 MoV #1, e8x sURITE DATA 

7609 035734 004537 043742 JSR RS, @gCRC 260 TO CALCULATE CRC 

7610 035740 047200 cYL 

7611 035742 051100 were 

7612 

7613 S*THESE ARE REGULAR SETUPS 

7614 

7615 035744 004037 042452 JSR RO, @ECLAREA dFILL WRITE BUFFER WITH 377 

7616 0795750 002110 WRFROW FROM LOCATION 

7617 035752 003110 WRFROM¢<256.°2> 3TO LOCATION 

7618 035754 000377 377 20474 

7610 035756 004737 042534 JSR PC, Q8CLDISK SSETUP GEWERAL REGISTERS 

7620 035762 012777 177400 143642 MoV #-256., @RAWC 3256. DATA WORDS 

7621 035770 012777 002110 143636 MoV GURFROM,@RHBA STARTING ADDRESS OF WRITE BUFFER 

7622 035776 012746 000025 MOV €21.,-(SP) sSECTOR 21. 

7623 036002 112766 000022 000001 MOVB #16.,1(SP) sTRACK 18. 

7624 036010 012677 143630 “Ov (SP), @RHDST SSECTOR 21. TRACK i8. 

7625 036014 012777 010000 143626 MOV @FNT22, QRHOF 316 BITS PER WORD FORMAT 

7626 036022 012777 001456 143622 MoV 0814.,@QPHCA sCYLIWDER 614. 

7627 036030 004737 042570 JSR PC, @SCHECFT sCHECK THAT OVA, RDY,DPR,ORY = 1 

7628 036034 104401 062145 TYPE @CPRALT 34ND THAT HO OTHERS = 1. CANNOT COR- 

7629 STINUE TESTING IF BOTH AREU°T TRUE 

7630 036040 000000 HALT 3SToP THE TEST 

7631 036042 013711 002062 MOV QPUPIDAT, OR1 sVRITF DATA=60 

7632 036046 005037 002006 CLR @#ERFLGS sCLEAR ERROR FLAG 

te 036052 004737 047040 JSR PC, ®8CO¥HD SURITE DATA 

7635 

71636 3*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 

7637 s*FROW THE “COMHD™ ROUTINE IT MEANS SECTOR GAP, SYNC RYTE 

7639 s*HEADER, HEADER CRC, HEADER GAP AND SYNC BYTE RAVE GONE BY 

ee #*AND SYNCS WERE CORRECTLY DETECTED, DATA IS TO BE CHECKED. 

640 

7641 036056 004737 042140 JSR PC, @RPUTREG sSAVE REGISTERS 

7642 036062 005737 002006 Tst @#EPFLGS SHAVE ANY ERRORS OCCURED? 

7643 036066 001062 BNE 58 sPRANCH IF YES 

7644 036070 012700 000377 MOV #377, R0 26000 DATA 

7645 036074 012701 051116 MOV @DISK,R1 3LATA UPITTEN INTO “DISK™ 

7646 036100 012702 000400 Mov #256.,R2 sCOUNTER 

71647 

764@ 036104 012737 000491 047320 15S: MOV 8256.41, Q8ERWORD;FOR ERROR WORD 

7649 036112 020021 cup RO, (R1)@ sCOMPARE GOOD DATA WITH DATA ON DISK 

7650 036114 001424 BEQ 3$ sBRANCH IF GOOD 

7651 076116 010037 001124 MoV RO, @8SGDDAT 26000 DATA 

7652 036122 014137 001126 MoV -(R1),@8SBDDAT ;B8AD DATA 

7653 036126 160237 047320 S$u8 R2,@8ERWORD sERROR WORD nO 

7654 036132 005737 002006 Tst @#ERFLGS 3AMY ERRORS ALREADY THERE? 

7655 036136 001002 BWE 2$ sPRANCH IF YES 

7656 036140 104004 ERROR 4 sERROR ON WRITE DATA COMMAND DS 

7657 036142 000401 BR 64$ SBRANCH TO AVOID PRINTING NEXT ERROR 


71658 
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7659 
71660 
7661 
1662 
7663 
71664 
7665 
7665 
7667 
71668 
7669 
7670 
7671 
7672 
7673 
7674 
7675 
7676 
7677 
7678 
7679 
7680 
7681 
7682 
7683 
7684 
7685 
71686 
7687 


036144 
036146 
036150 
036154 
036160 
036164 
036166 
036170 


036172 
036176 
036202 
036206 
036210 
036216 
036224 
036232 


036234 
036242 
036244 
036246 


036250 


29-MAR-76 00:00 


104005 
005721 
017746 
042716 
022726 
001402 
005302 
001345 


613746 
042716 
022726 
001412 
013737 
012737 
013737 
104001 


013737 
104415 
000000 
000200 


000137 


142764 
177177 
000200 


001736 
001000 
002700 


001662 
002700 
001736 


001640 


036720 


042204 
001124 
001126 


036244 


T113 


5$: 
6$: 


ERROR 
tst 
Mov 
Bic 
cuP 
BEQ 
DEC 
BWE 
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RHDS1 (BIT #10) - LAST SECTOR TRANSFERRED, “LST” 


5 

(R1 Do 
eSuR,-(SP) 
#177177,¢SP) 
@S¥07, (SP )e 


@#DS1,-( SP) 
SPROG, (SP) 


s¥ORD BO GIVES WORD If ERROR 
3UNDO -(R1) FOR BAD DATA 
sCGET SWITCH SETTING 

sFEEP ORLY SWITCH 7 AND 8 
31S 7 SET AND 6 RESET 
sPRARCH OUT IF VES 

31IF BOT COURT 256 WORDS 
sPRANCH IF 256. HOT DONE 


3GET RHDS1 
SCLEAR PROG 


SLSTIDPRIDRVEVE,(SP)o3I1S “LST° HICH ? 
58 sBRAnCcH IF GOOD 


Q#RADSI, GSRECADR ZSFAILING REC. ADDRESS 
SLSTIDPRIDRYIVE, eessooar z6000 DATA 
@8DSi,@#SBDDAT  3B8AD DATA 


i 


@#RHCS1,@86$ 


eecat 


3°LST° DID ROT SET AFTER 

SLAST SECTOR OW LAST TRACK 

308 LAST CYLINDER WAS 

sURITTER 

3UV BIT 86 RAY OR MAY NOT BE HICH 
sSET UP “WAT? SUBROUTINE 


3RHCS1 ADDRESS 
sUAIT FOR READY 


sD0OR°T DO THE RPO4 “LST TEST FOLLOWING 





el5 
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DZRIGA.P11  29-MAR-76 00:00 T113 - RADSL (BIT #10) - LAST SECTOR TRANSFERRED, “LST° 
7688 
7689 
7690 
7691 036754 DOG: 
7692 3 3 SHKSASKARAAASHSRAAAAARAREKKAKRHKRAHSHAAAAHAKRARARARReARAeeeaaaneeneaeene 
7693 s°TEST 114 MAKE CURRENT CYLINDER = 410. 
7694 SKRAARSSSRAAKSSSARARALHSSARAKRSKRAAARSSHAKRHARHKHARARARAHAAARAARAeAREeE Lee 
7695 036254 000004 TST114: SCOPE 
7696 036256 012706 001000 MOV eSTACK,SP sRESET STACK 
7697 036262 012737 000114 002032 nov STTHO,QOTSTNM  ZTHTS SAVES TEST wUNBER 
7698 036270 004737 042534 JSR PC, QSCLOISK sTMIT DRIVE 
7699 036274 012777 000001 143356 nov #DND, @RHAR 3SET DIAGNOSTIC MODE 
7700 036302 004037 045106 JSR RO,QOMARECYL §=§ SUBROUTINE TO GIVE A SEEK 
7701 3COMMAND FOLOWED 8Y AN INIT 
7702 3THTS SHOULD CHANGE RACC 
7703 036306 000632 410. sCHAMGE RCC TO 410. 
7705 
7706 
7707 
7708 33 XIIIIIIIIIXIIIIIXVVVVXVVEVXVV 
7708 3*TEST 115 RHDS1 (SIT #10) - LAST SECTOR TRANSFERRED, “LST 
7711 —8 WRITE CYLINDER 410., FORMAT 16 BITS PER WORD 
7712 300 TPACK 19., SECTOR 21., KEYS 0, NUMBER OF WORDS 
7713 pee 256., OF 377 
7714 see *LST° BIT #10 - RHDS1 SHOULD SET AFTER THE 
7715 3ee WRITE IS COMPLETED 
* 3 3 SKARSHSSAAARALHARAKARAHAHKAKRAARAAAARHAAeeKesanetesenegeneanarereanaeenece 
7718 036310 000004 TST115: SCOPE 
7719 
7720 
7721 036312 012706 001000 MOV #STACK, SP sPESET STACK 
7722 036316 012737 000115 002032 MOV QTTNO,QPTSTNM [THIS SAVES TEST RUMBER 
7723 
7724 036324 004037 042452 JSR RO, @SCLAREA sCLEAR SIMULATED DISK 
7725 036330 051116 eWORD DISK 3FROM 
7726 036332 052142 eWORD TOLGAP+16 370 
1727 036334 000000 -WORD 0 3DaTA 
728 
7729 s*THESE ARE SETUP FOR DISELESS USE ONLY 
7730 
7731 036336 012737 010632 047200 Mov 8410. 1PMT22,@FCYLZCYLINDER 410. 
1732 316 BITS PER WORD 
7733 026344 112737 000022 047203 MOVE $16. ,@SSECOTRe1;TRACK 18. 
7734 036352 112737 000025 047202 MOVE #21.,@8SECOTR SECTOR 21. 
7735 036360 005037 047204 CLR QeKEY 3KEY1 0 
7736 036364 005037 047206 CLR @fKEY2 sFEY2 0 
7737 036370 012737 000400 047246 MOV #256.,28NOWORD 30 OF DATA WORDS 
7738 036376 012737 000001 047210 MOV #1, 08% aWRITE DATA 
7739 036404 004537 043742 JSR k5, @#CRC 360 TO CALCULATE cRC 
7740 036410 047200 CYL 
7741 036412 051100 were 
7742 
7743 d*THESE ARE REGULAR SETUPS 


FI6 
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OZRIGA.P11 29-MAR-76 00:00 RHDS1 (BIT 810) - LAST SECTOR TRANSFERRED, “LST° 
7744 
7745 036414 004037 042452 JSR RO, @SCLAREA SPILL BRITE BUFFER WITH 377 
7746 036420 002110 WRFROM sFROM LOCATION 
7747 =036422 003110 WRFROM*< 256. *2> 3TO LOCATION 
7748 036424 000377 377 3DATA 
7749 036426 004737 042534 JSR PC, @8CLDISK sSETUP GEWERAL REGISTERS 
7750 036432 012777 177400 143172 Mov #-256., @RAWC 3256. DATA WORDS 
7751 036440 012777 002110 143166 MoV GURFROM,@RHBA STARTING ADDRESS OF WRITE BUFFER 
7752 036446 012746 000025 MoV 821.4-(SP) sSECTOR 21. 
7753 036452 112766 000022 000001 “OvB #16.,1(SP) sTRACK 16. 
7754 036460 012677 143160 MOV (SP )¢,@RHDST sSECTOR 21. TRACK 18. 
7755 036464 012777 010000 143156 MOV SFNT22, QRHOF 316 BITS PER WORD FORMAT 
7756 036472 012777 000632 143152 MOV 8410.,@RHCA sCYLINDER 410. 
7757 036500 004737 042570 JSR PC, Q@SCHECKET SCHECK THAT DVA,RDY,DPR,DRY = 1 
7758 036504 104401 062145 TYPE o CPHALT 3AmND THAT NO OTHERS = 1. CANROT CON- 
7759 STINUE TESTING IF BOTH ARENT TRUE 
7760 036510 000000 HALT sSstoP TRE TEST 
7761 036512 013711 002062 MoV Q#URIDAT, OR1 SURITE DATA=60 
7762 036516 005037 002006 CUR Q#ERFLGS sCLEAR ERROR FLAG 
7763 036522 004737 047040 JSR PC, @8COMHD sURITE DATA 
71764 
7765 
7766 3*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
71767 3*FROM THE “COMAD" ROUTINE IT MEANS SECTOR GAP, SYNC BYTE 
7768 S*HEADER, HEADER CRC, HEADER GAP AND SYNC BYTE HAVE GORE BY 
7769 3*AND SYNCS WERE CORRECTLY DETECTED, DATA IS TO BE CHECKED. 
7770 
7771 036526 004737 042140 JSR PC, @SPUTREG SSAVE REGISTERS 
7772 036532 005737 002006 Ttst QRERFLGS SHAVE ANY ERRORS OCCURED? 
7773 036536 001062 BNE 58 sB8Rauce IF YES 
7774 036540 012700 000377 MoV #377,R0 3GOOD DATA 
7778 =036544 012701 051116 Mov #DISK,#1 sDATA WRITTEN INTO “DISK® 
7776 036550 012702 000400 MOV #256.,R2 sCOUNTER 
7777 
7778 036554 012737 000401 047320 i$: MoV #256.¢1,@@ERWORDJFOR ERPOR WORD 
7779 =036562 020021 cue RO,(RIDo sCOMPARE GOOD DATA WITH DATA ON DISK 
7780 036564 001424 BEQ 3$ sBRANCH IF GOOD 
7731 036566 010037 001124 MOV RO, @8SGDDAT 26000 DATA 
7782 036572 014137 001126 Mov -(R1),a#SBDDAT  ;PAD DATA 
7783 036576 160237 047320 SUB R2, @#ERWORD ZERROR WORD HO 
7784 036602 005737 002006 Ttst @#ERFLCS 3ANY ERRORS ALREADY THERE? 
7785 036606 001002 BNE 2$ sPRANCH IF YES 
7786 036610 104004 ERROR 4 ZERROP OF WRITE DATA COMMAND 
7787 036612 000401 BR 64$ SBRANCH TO AVOID PRINTING WEXT ERROR 
7788 
7789 036614 104005 2$3 ERROR 5 3¥ORD NO GIVES WORD IN ERROR 
7790 036616 005721 64S: Tst (R1)¢e 3UNDO -(R1) FOR BAD DATA 
7791 036620 017746 142314 MOV @SuR,-(SP) sGET SWITCH SETTING 
7792 036624 042716 177177 BIC €177177,¢ SP) sFEEP ONLY SWITCH 7 AND 8 
7793 036630 022726 000200 cup #S¥07,(SP)*¢ 31S 7 SET AND 8 RESET 
7794 036634 001402 BEQ 4s sBRANCH OUT IF YES 
7795 036636 005302 352 DEC R2 sIF NOT COUNT 256 WORDS 
the 036640 001345 BNE 4s sPRANCH IF 256. NCT DOME 
97 — 
71798 
7799 036642 013746 001736 452 MoV @80S1,-(SP) sCET PHOS1 
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OZRIGA.P11 29-MAR-76 00:00 T115 RHOS1 (BIT #10) - LAST SECTOR TRANSFERRED, “LST” 
7800 036646 042716 001000 BIC #PROG,(SP) sCLEAR PROG BIT 
7801 036652 022726 002700 cue @LSTIDPRIDRVIVY,(SP)* 31S °LST° HICH ? 
7802 036656 001412 BEQ S$ sWAIT FOR °RDY° IF COOD 
7803 036660 013737 001662 042204 “ov QPRHDSL,QPREGADR ;FAILING REG. ADDRESS 
7804 036666 012737 002700 001124 nny SLSTIDPPIDRYIVY,@#SGDDAT 3CG00D DATA 
7805 036674 013737 001736 001126 MOV @8DS1,-@8SEDDAT PAD DATA 
7806 036702 104001 ERROR 1 a°LST° DID ROT SET AFTER 
7807 sLaST SECTOR On LAST TRACE OW LAST 
7808 sCYLINDER WAS WRITTEN - °VV" BIT 96 
7809 SPAY OR MAY NOT BE HIGH 
7810 
7811 036704 013737 001640 036714 5$: MoV @@RHCS1,@86$ sSET UP "WAT" SUBROUTINE 
7812 036712 104415 wAT 
7813 036714 000000 6$: ) sRHCS1 ADDRESS 
7814 036716 000200 ROY a¥VATT FOR °PDY" BIT 


HK 
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DZRJGA.P11 29-MAR-76 00:00 T1is RADS1 (BIT #10) - LAST SECTOR TRANSFERRED, “LST* 
7815 
7816 
7817 036720 cats 
7818 Qneneereneraaeaanenenennnenesesrenereeeaarenenenererenennennane 
7819 s*TEST 116 ERROR REGISTER 1 - BIT #9 ADE 
7820 
7821 el A WRITE DATA COMMAND IS GIVEN TO CYLINDER 410./914. 
7822 = SECTOR 21 TRACK 186, KEYS 0, DATA 377 
7823 zee WORD COUNT REGISTER FOR 326 (2560664) WORDS 
7824 — 
7825 _ APTER 256 WORDS HAVE BEER WRITTEN 
78626 38 *AOE’ SHOULD COME UP 
7827 
7828 —5 RAWC WILL SHOW 4 BECAUSE THE SILO IS 66 WORDS AND 
7829 gee 256 WORDS HAVE BEEN WRITTEN - TOTAL 322 
7830 ais THIS IS 4 SHORT OF 326 
783 
oe | pp tM eKeaaeenecenarenereneeareeneageneeegenrenenesenteaneneneneens 
7833 036720 000004 TST116: SCOPE 
7834 036722 012706 001000 MOV SSTACK, SP sRESET STACK 
7835 036726 012737 000116 002032 Mov STTNO,OSTSTHN ZTHIS SAVES TEST NUMBER 
7836 036734 004737 042534 JSR PC, R@SCLDISK 3TNIT ARO SET UP GENERAL REC. CORRES. 
7837 036740 004037 042452 JSR RO, @SCLAREA sCLEAR SIMULATED DISK 
7838 036744 051116 «WORD DISK 3FROK 
7839 036746 052142 eWORD TOLGAP*16 270 
7840 036750 000000 eWORD 0 20474 
7841 
7842 S*THESE ARE TO SETUP FOR DISKLESS USE ONLY 
7843 3*ARD WILL HANDLE RPO4 OR RPOG DRIVES 
7844 
7845 036752 005737 002036 Ttst @FRPOG ;MOVE RPOG FLAG TO ITSELF TO TEST 
—* 036756 001404 BEQ 10$ STREAT DRIVE AS RPO4 IF = 0 
784 
7848 036760 012737 011456 047200 MOV — nateey: Hoye 814., 16 BITS PER WORD 
ee 036766 000403 BR 11$ sTREAT DRIVE AS RPOG6 
850 
7851 036770 012737 010632 047200 10$: Mov £410. 1FwT22, @ECYLICYLINDER 410., 16 BITS PER WORD 
7852 sTREAT DRIVE AS RPO4 
7853 
7854 036776 112737 000022 047203 11S: MOvVB #18.,@8SECOTRe1 ;TRACK 18. 
7855 037004 112737 000025 047202 MOVR #21.,@8SECOTR SECTOR 21. 
7856 037012 005037 047204 CLR @sKEY1 sKEY1 0 
7857 037016 005037 047206 CLR @eKEY2 sKEY2 0 
7858 037022 012737 000400 047246 mov #256.,@8N0NORD zuo OF DATA WORDS 
7859 037030 012737 000001 047210 MOV #1,08% sURITE DATA 
7860 037036 004537 043742 JSR RS, @ECRC 360 TO CALCULATE cRC 
7861 037042 047200 CYL 
7862 037044 051100 wcrc 
7863 
7864 S*THESE ARE REGULAR SETUPS 
7865 
7866 037046 004037 042452 JSR RO, RGCLAREA sFILL WRITE BUFFER WITH 377 
7867 037052 002110 WRFPROM 3 FROM 
7868 037054 003110 WRFROM* <256.°2> sto 
7869 037056 000377 377 20474 
7870 037060 004737 042534 JSR PC, @SCLDISK SSETUP GEWERAL REGISTERS 





LIS 
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DZRIGA.P11 29-MAR-76 00:00 T7116 ERROR REGISTER 1 = BIT #9 
7871 037064 012777 #177272 142540 MoV #-326., RHC 3326. DATA WORDS 
7872 037072 012777 002110 142534 MOV QVRFROM,@PHBA  ZSTARTING ADDRESS OF WRITE BUFFER 
7873 037100 012746 000025 Mov #21.0-(SP) sSECTOR 21. 
7874 037104 112766 000022 000001 MOVB #18.,1(¢SP) 3TRACK 18. 
7875 037112 012677 142526 MOV (SP )2, @RHOST SSECTOR 21. TRACK 18. 
cece 037116 012777 010000 142524 Mov SFMT 22, @RHOF 316 BITS PER WORD FORMAT 
877 
7878 s*CHECK TO SEE WHAT TYPE OF DRIVE IS BEING TESTED 
7879 3*AND LOAD CYLINDER ADDRESS REGISTER WITH THE PROPER NUMBER 
7860 
7881 037124 005737 002036 Tst @#RPOG ZPOVE FLAG TO ITSELF TO TEST 
7882 037130 001404 BEQ 12$ sTREAT AS RPO4 TF = 0 
7883 037132 012777 001456 142512 MOV #614.,Q@PHCA sCYLIWDER 814. 
7884 037140 000403 BP 13$ sTREAT AS RPOG 
78395 037142 012777 000632 142502 12$: MOV #410.,@QRHCA SCYLIWDER 410. 
zone 037150 13$3 
7888 037150 004737 042570 JSR PC, RSCHECKT sCHECK THAT DVA,RDY,DPR,DRY = 1 
7889 037154 104401 062145 TYPE a CPHALT 3AND THAT NO OTHERS = 1. CANNOT COR- 
7890 sTINVE TESTING IF BOTH AREN°T TRUE 
7891 037160 000000 HALT 3STOP THE TEST 
7892 037162 013711 002062 MOV @#URIDAT, @R1 sURTITE DATA=60 
7893 037166 005037 002006 CUR @#ERFLGS sCLEAR ERROR FLAG 
7894 
— 3*THE REGISTERS WILL BE SAVED IW RETNTO BUFFER 
7897 037172 004037 043226 JSR RO, RESAVER sSAVE 
7898 037176 001632 RHWC 3FROM 
7899 037200 003154 REINTO 270 
7900 037202 000023 19. SNUMBER SAVED 
7901 
71902 3*GIVE WRITE DATA COMMAND 
7903 
7904 037204 004737 047040 JSR PC, RECOMHD SURITE DATA COMMAND 
7905 
71906 s*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
7907 
7908 037210 005737 002040 Ttst @#RH70 sCHECK FOR PH70 CONTROLLER 
7909 037214 001407 BEQ 8$ dSKTP RH70 CODE AND DO PH11 IF NOT 
7910 
7911 037216 012737 177792 003154 MOV 8-76, Q¢REINTO SAVED RHWC SHOULD BE = 76 (OCTAL) 
7912 037224 012737 003130 003156 MOV #WRFROMe<2* 256. >¢¢ 2°8. >, @HREINTOS2 
7913 sSAVED RHBA SHOULD BE WRFRONe25608 
7914 037232 000406 BR 9$ 3SKIP WEXT RH11 CODE 
7915 
7916 037734 012737 177774 003154 8S: MOV @-4, @FREINTO SSAVED RHWC SHOULD BE = 4 
7917 037242 012737 003314 003156 MOV WWRFROM*<2°256.>0¢2°66.>, OSPEINTOS2 
7918 SSAVED RHPA SHOULD BE WRFROMO256+66 
7919 
7920 037250 052737 000200 003160 9S: BIS #OR, Q@REINTO*4 ZSAVED RHCS2 
7921 037256 042737 000100 003160 BIC #IR, @#REINTO*4 ZSAVED RHCS2 
7922 037264 052737 140000 003162 BIS GSCITRE, @BREINTO*CEZSAVED RHCS1 SHOULD HAVE “°SC° & “TRE 
7923 037272 012737 001000 003164 MOV SAGE, VHRETNTO*1O sSAVED RHER] SHOULD HAVE °AOF* SIS 
7924 037300 017737 142340 003166 MOV @PHDST, QSPEINTO*1L2ZSAVED RHDST SHOULD HAVE= 
7925 sRHDST IS UNDEFINED 


7926 








MNDEC-11-DZRJG-A,RPO4/S5/6 DSKLS CONTROLLER TST-PT 1 MACY11 30(1046) O8-DEC-77 13:57 PAGE 162 


OZRJGA.P11 29-MAR-76 00:00 T116 ERROR REGISTER 1 - BIT #9 AOE 
7927 s*CHECK TO SEE WHAT TYPE OF DRIVE IS BETNG TESTED 
7928 3*AND SET UP CYLINDER ADDRESS ACCORDINGLY 
7929 
7930 037306 005737 002036 tst _ sMOVE RPOG6 FLAG TO ITSELF TO TEST 
7931 037312 001404 BEQ 14$ sTREAT AS RPO4 IF = 0 
7932 037314 012737 001457 003174 Mov g015., QeRELWTO67035AvED DESTRED CYLINDER ADDRESS 
7933 037322 000403 BPR 1s$ sTREAT AS RPOG 
7934 037324 012737 000633 003174 14$§: MOV 6411.,@@REINTO*203SAVED DESTRED CYLINDER ADDRESS 
71935 
7936 037332 013737 002016 003200 15s: MOV QPATTENT, OBRETHTOC24 SSAVED RHAS SHOULD HAVE APPRO. BIT 
7937 037340 052737 000001 003202 BIS #OMD, RERETNTOS2Z6;SAVED RUMR 
os 037346 052737 142000 003204 BIS SATAIERRILST, ABREINTOS30 SAVED RADSI 
39 
7940 S*APTER A WRITE DATA COMMAND WITH »aote ERROR 
7941 S*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DOWE 
7942 
7943 037354 004037 043226 JSR RO, OESAVER sSAVE 
7944 037360 001632 RHUC 3PROM 
7945 037362 002110 WRFRON 270 
7946 037364 000021 17. SNUMBER OF RECISTERS SAVED 
71947 
7948 3*AS OPPER BYTE OF RHAS CAN BF CHANGING IW A OUAL PORT 
7949 s*OPERATION THE UPPER BYTE OF RAAS WILL BE SAVED As IS 
7950 3*SO THAT THE COMPARES ARE OWLY VWALTO FOR THE LOWER BYTE 
7951 
7952 037366 113737 003201 002135 MOvVB OPREINTOC2S, OSURFROMS2ISZSAVE UPPER RHAS 
7953 
1954 S*COMPARE REGISTERS BEFORE WRITE DATA COMMAND 
7955 3*°UITH AFTER COMMAND 
7956 
7957 037374 004037 043430 JSR RO, QECOMPAR dCOMPARE 
7958 037400 003154 RE INTO 26000 BUFFER 
7959 037402 002110 wRFROM sTEST BUFFER 
7960 037404 000021 17. SNUMBER OF PEGISTERS 
7961 037406 037414 i$ SRETURM FOR ERROR 
7962 037410 037414 1$ 3SAME 
— 037412 037434 2$ sRETURN FOR GOOD COMPARISON 
964 
7965 037414 013705 047320 1$: mov @#ERWORD, RS sCETTING READY TO INDEX 
7966 037420 060505 400 RS,RS sDOUBLE ERROR WORD 
7967 037422 016537 001630 042204 MoV RHWC-2( RS), @@REGADR sPAILING REG. ADDRESS 
7968 037430 104001 ERROR 1 JPFOPCED ADE ERROR CAUSED IMPROPER 
1969 sREGISTER CHANGE 
7970 037432 000207 RTS Pc SPETURN FOR FURTHER COMPARISONS 
7971 3¥O ERRORS 
*1 037434 005037 002006 2$3 CLR @#ERFLGS sCLEAR ERROR FLAG 
1974 
zeae s*DATA TS TO BE CHECKFD HERE 
71976 
7977 037440 004737 042140 JSR PC, REPUTREG SSAVE REGISTERS 
7978 037444 012700 000377 MOV #377,R0 26000 DATA 
7979 037450 012701 051116 MoV #O01SK,R1 sDATA WRITTEN INTC “DISK® “is 
7980 037454 012702 000400 MOV #256.,R2 sCOUNTERP 
7981 037460 012737 000400 047320 3$: MoV #256.,@8ERWORD FOR ERROR WORD 


7982 037466 020021 cre RO,(R1)¢ sCOMPARE GOOD DATA WITH DATA On orst 
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7983 
71984 
7985 
7986 
7987 
71988 
7989 
7990 
7991 
7992 
71993 
7994 
71995 
71996 
71997 
7998 
71999 
8000 
8001 


037470 
037472 
037476 
037502 
037506 
037512 
037514 
037516 
037520 
037522 
037524 
037530 
037534 
037540 


037542 
037544 


037546 


29-MAR-76 00:00 


001424 
010037 
014137 
160237 
005737 
001002 
104004 
000401 
104005 
005721 
017746 
042716 
022726 
001402 


005302 
001345 


001124 
001126 
047320 
002006 


141410 
177177 
000200 


4$3 
5$3 


7$3 








MACY11 30(1046) O08-DEC-77 13:57 PAGE 183 
ERROR REGISTER 1 - BIT #9 ADE 


6$ 

RO, @8SGDDAT 
~(R1), O#SBODAT 
R2, @8ERWORD 
@#ERFLGS 

4$ 

4 

$$ 

5 

(R1)e 
@SUR,-(SP) 
#177177, (SP) 
eo 


R2 
3$ 


sBRANCH IF GOOD 

36000 DATA 

3BAD DATA 

sERROR WORD NO 

SAMY ERRORS ALREADY THERE? 

sBRANCH IF YES 

ZERROR OW WRITE DATA COMMAND WITH FORCED ° AOE? 
sBRANCH TO AVOID PRINTING BEXT ERROR 
SWORD WO. GIVES WORD IN ERROR 

3UNDG -(R1) FOR BAD DATA 

sGET SWITCH SETTING 

sREEP ORLY SWITCH 7 AND 6 

31S 7 SET AWD 6 RESET 

3BRANCH our If YES öÿ) 


dTF BOT COUNT 256 WORDS 
sBRANCH IF 256. NOT DOME 
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8002 
8003 
8004 
8005 
8006 
8007 
6008 
8009 
8010 
68011 
8012 
8013 
8014 
6015 
8016 
8017 
8018 
8019 
8020 
8021 
8022 
8023 
8024 
8025 
8026 
8027 
8028 
8029 
8030 
8031 
8032 
8033 
8034 
8035 
8036 
8037 
8038 
8039 
8040 
8041 
8042 
8043 
8044 
8045 
8046 
8047 
8048 
8049 
8050 
8051 
8052 
8053 
8054 
8055 
8056 
8057 


037546 
037550 
037554 
037562 
037566 
037574 


037600 


037602 
037604 
037610 
037616 


037622 
037630 
037636 


037644 
037652 
037656 


037662 


037666 
037672 
037674 
037676 
037702 
037706 
037710 
037712 


037720 
037724 


29-MAR-76 00:00 


000004 
012706 
012737 
004737 
012777 
004037 


000000 


000004 
012706 
012737 
004737 


012777 
052777 
042777 


012777 
012700 
010077 


012720 


012720 
005020 
005020 
012705 
012720 
005305 
001374 
012777 


004737 
104401 


001000 
000117 
042534 
000001 
045106 


001000 
000120 
042534 


000001 
000004 
000004 


177400 
003154 
141752 
010000 
012000 
000400 
177777 
012000 


042570 
062145 


002032 
142064 


002032 


142030 
142022 
142014 


141760 


141724 


ERROR REGISTER 1 - BIT #9 


MACY11 30(1046) Pe ~ wate 13357 PACE 184 


33 IIIIVXIIIVVVEXV 


MAKE CURRENT CYLINDER = 0 
IXXXXXXXXXXXXXEXVXXIXXX 


s*TEST 117 
TST117: SCOPE 


@STACK,SP 
aTTNO, OSTSTAM 
PC, @SCLDISK 
#DND, @RAKR 
RO, OBMAKECYL 


sRESET STACK 

sTHIS SAVES TEST NUMBER 
dTMIT ORIVE 

dSET DIAGNOSTIC MODE 
JSUBROUTINE TO GIVE A SEEK 
sCOMMAND POLOWED BY AN INIT 
STHIS SHOULD CHANGE RACC 
SCHANGE RCC TO 0 


33 SRAAAAARAAAAARHAAAAAAAKARAAHARAAAAAAAAAAARARAAAALARSAHAARAAAAeeEER 


s*TEST 120 ERROR REGISTER 1 - BIT #10 °IAE° 

— A READ READER AND DATA IS GIVEW TO TRACK 20, SECTOR 0 
* AN INDEX PULSE IS GIVEN TO GET RHLA TO 0 

gee TAE BIT SHOULD SET 


TST1203 SCOPE 


aRESET STACK 
sTHIS SAVES TEST WUMBER 
SCLEAR REGISTERS AND SET UNIT HO. 


3SET DIAGNOSTIC MODE 
3SET INDEX 
SCLEAR IMDEX 


9256 DATA WORDS 4 HEADER WORDS 
sTHESE TWO INSTRUCTIONS GETS 
JADDR, OF WRFROM INTO RO AND 
3BUS ADDRESS RECISTER 
sFORMATS16 BIT WORDS 
aCYLINDER=0 

STRACK=20 SECTOR=0 KEYS=0 
sKEV1=0 

sFEY2=0 

sCOUNTER 

aMOVE ALL ONES FOP DATA 


SBRANCH IF DATA NOT COMPLETE 
pTRACK=20 SECTOR=0 


sCHECR THAT DVA,RDY,DPR,ORY = 1 


MoV SSTACK,SP 
MOV STTNO, OSTSTHN 
JSR PC, @SCLDISK 
S*GIVE INDEX PULSE 
MOV qOND, @RHMP 
BIS @MINZ,@RHMR 
BIC @MINX, QRHMR 
S*THESE ARE REGULAR SETUPS 
MoV #-256.,@RHUC 
MOV SREINTO,RO 
MoV RO, @RABA 
MoV @FMT22,(RO)D@ 
MOV #12000, (RO) 
CLR (ROD 
CLR (RO) 
MOV #256.,R5 

1$3 Mov 8-1, CRO) ¢ 
DEC RS 
BYE 1$ 
MOV #12000, @RHDST 
JSR PC, @ECHECKT 
TYPE CPHALT 


3AND THAT WO OTHERS = 1. CANNOT CON- 


ms 








J 
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DZRICA.P11 29=“AR-76 00:00 7120 ERROR REGISTER 1 - SIT #10 “IAE° ( 
8058 sTENUE TESTING TF BCTH ARENT TRUE 
8052 037730 000000 HAL? 3STOP TRe TEST ( 
8069 
9061 027722 013711 002070 wov @#REFOR, @P1 3CET PEADY FUR WRITE HEADER AND 
8062 3DATA WITH 62 IN PHCS1 ( 
8063 637736 005037 002006 CLR @PEPFLGS sCLEAP ERROR FLAG 
9064 037742 012777 010000 141700 MOV @FMT2?, @RMOF 3FOPMAT BIT=1 (16 BIT WORDS) 
806© 037750 005077 141676 CLR aPHCA 3CYLINDER =0 ( 
3066 
3067 s*TME REGISTERS WILL RE SAVED IN REINTO BUFFER 
806R 037754 004037 043226 JSR RO, RESAVEP sSAVE ( 
8069 037760 001632 RHWC 3F80N 
8070 037762 003154 REINTO 370 
3071 037764 000023 19, ZNUWBFR SAVED ( 
8072 
8073 3*°GO TO WRITE HEADER AND Data 
8074 
8075 037766 013700 001650 MOV @#RHMR, PO 3NOW RO WAS MAINTENANCE REG. ADDR. 
8076 037772 012710 000001 MOV #DMD, @RO 3SET OLAGNOSTIC MCDE 
8077 037776 052777 000001 141634 BIS 8GO, aRHCs1 360 ( 
3079 
8079 2*CHANGE SAVED REGISTERS TO EXPECTED VALUE 
8080 040004 052737 140000 003162 BIS @SCITRE, Q@REINTO*6 3SAVED RACSI ( 
8081 040012 012737 002000 003164 MoV S@IAE, @SREINTO*1O 3SAVED RYERI 
9082 040020 012737 012001 003166 MOV #12001, @GREINTO*12;SAVED RHDST 
8083 040026 013737 002016 003200 MOV Q@#ATTENT, @GREINTOS24 ;SAVED RHAS ( 
8084 040034 052737 006001 003202 BIS gDMD, RSPEINTO*26 3SAVED RANR 
3085 040042 052737 140000 003204 BIS SATALERR, @SREINTUC3IO 3SAVED R4DS1 ( 
8067 3*SAVE REGISTERS AGAIW SO THAT COMPARES CAN BE DONE 
8088 040050 004037 043226 JSR RO, RESAVEP 3SAVE 
8039 040054 001632 RAWC 3FRON ( 
e090 040056 002110 wRFeOw 370 
8091 040060 000023 19. ZRUMBER CF REGISTERS SAVED , 
809 
8093 3*AS UPPER PYTE UF RHAS CAN BE CHANGING IW A DUAL PORT 
8094 s*OPEPATION THE UPPER BYTE OF RHAS WILL BE SAVED as IS 
8095 3*SO THAT THE COMPARES ARF OBLY WALID FOR THE LOWER BYTE ( 
8096 040062 113737 003201 002135 wove @FREINTOS25S, QBUPFROMe253SAVE UPPER RHAS 
8097 
8099 ( 
8099 3*COMPAPE REGISTEPS BEFORE PEAD IN PRESET COMMAND 
8100 3°WITH AFTER COPMAND 
8101 040070 004037 043430 - JSR RO, @SCUMPAR sCOMPARE ( 
8102 040074 003154 RFIRTO 3GCOD BUFFE® 
8103 040076 002110 wPFROW 3TEST BUFFER 
8104 040100 000021 17. NUMBER OF REGISTERS ( 
8105 040102 040110 2$ SPETURN FOR ERRUR 
8106 040104 040110 2$ 3SAME 
8107 0406106 040130 3$ 3PETURN FOR GOOD COPPARTSON ( 
81093 
8109 040110 013705 047320 2s: MOV @fERsORD, PS 3CETTING READY TO INDEX 
8110 040114 060505 ADD RS, 25 DOUBLE ERROR wORD ( 
8111 040116 016537 001630 042204 MOV RHWC-2(95),@#REGADR 3FAILING REG. ADDRESS 
8112 040124 104001 eRRoa 1 3FORCED IAE CAUSED IMPROPER AIL 
8113 BREGISTER CHARGE ( 








smsettemeygamerar apes comets erry gtcrty eugene“ sey nace ane , 
8114 040126 000207 RTS PC sRETURN FOR FURTHER COMPARISONS ‘ 
$116 no ERRORS 
6118 040130 004737 042534 35: JSR —s- PC, @ECLDISK sCLEAR GO BIT ( 

( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
RIL i 
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$120 
8121 
8122 
8123 
8124 
8126 
8126 
8127 
8128 
8129 
8130 
8131 
8132 
8133 
8134 
8135 
8136 
$137 
8138 
8139 
8140 
8141 
8142 
6143 
6144 
8145 
8146 
6147 
6148 
6149 
6150 
8151 
6152 
8153 
8154 
8155 
8156 
6157 
$158 
8159 
8160 
8161 
8162 
8163 
8164 
8165 
8166 
8167 
8168 
8169 
6170 
8171 
8172 
6173 
8174 
8175 


040134 
040136 
040142 
040150 


040154 
040162 
040170 


040176 
040204 
040210 


040214 


040220 
040224 
040226 
040230 
040234 
040240 
040242 
040244 


040252 
040256 


040262 
040204 
040270 


040274 
040302 


000004 
012706 
012737 
004737 


012777 
052777 
042777 


012777 
012700 
010077 


012720 


012720 
005020 
005020 
012705 
012720 
005305 
001374 
012777 


004737 
104401 


000000 
013711 
005037 


012777 
005077 


001000 
000121 
042534 


000001 
000004 
000004 


177400 
002110 
141420 
010000 
000026 
000400 
177777 
0000 26 


042570 
062145 


002064 


002006 
010000 
141344 


002032 


141476 
141470 
141462 


141426 


141372 


141346 


TST-PT 1 MACY11 30€1046) O8-DEC-77 13:57 PAGE 187 


7120 EPROR REGISTE®? 1 - BIT 810 “IAE* 


33 IIXXXVXXVXVVXVVCIXVVVA 


3*TEST 121 ERROR REGISTER 1- BIT 810 “TAE° 
od A WRITE HEADER AND DATA IS CIVEN TO SECTOR 22 
—_ TRACK 0 CYLINDER 0 
3 ee 
ae WORD COUNT IS SET TO 256. 
3 
ee AN INDEX PULSE IS CIVEN TO CET RHLA TO 0 
3 ee 
— IAE BIT SHOULD SET 
Jp TMM eeeaeaeeeavaaeerereneenenereeeenereneneeeerene saaeeaveresees 
TST121: SCOPE 
MOV eSTAcK,SP sRESET STACK 
mov @TTRO, @STSTHN sTHIS SAVES TEST BUNBER 
JSR PC, @SCLDISK SCLEAR REGISTERS AND SET UNIT HO. 
3*GIVE INDEX PULSE 
MOV 8DMD, @RAMP sSET DIAGNOSTIC NODE 
BIS SMINX, GRHMR 3SET TUDE 
BIC MINX, @RHYR sCLEAR THDEX 
S*TRESE APE REGULAR SETUPS 
MoV @-256., annuc 3756 DATA WORDS 4 HEADER WORDS 
MOV SWRFROM, RO sTHESE TWO INSTRUCTIONS GETS 
MOV RO, @RMBA ZA00R. OF BRFROW INTO RO AND 
3BUS ADDRESS REGISTER 
MOV SPMT22,¢(RO)e sPORMAT=16 BIT WORDS 
sCYLINDER=0 
MOV 822.4 (RO DO sTRACK=0, SECTOR=22, KEYS=0 
CUR CRO)e sR EViI=0 
CLR CRODe sKEY2=0 
mov 8256.,25 sCOUNTER 
1$: MOV 8-1, (RO) SMOOVE ALL ORES FOP DATA 
DEC RS 
BNE is 3PRAUCH IF DATA NOT COMPLETE 
MOV #22.,@RHDST sTRACK=0 SECTOR=22 
JSR PC, QBCHECKT sCHECK THAT DVA,RDY,DPR,DRY = 1 
TYPE eCPHALT 3AND THAT NWO OTHERS = 1. CANNOT COR- 
STIRUE TESTING TF BOTH AREN°T TRUE 
HALT 3STOP TRE TEST 
MoV QSURIFOR, @R1 3CET PEADY FOR WRITE HEADER AND 
sDATA WITH 62 IN PHCSI 
CLR @#ERFLGS sCLEAR ERROR FLAG 
Mov SFMT 22,@RHOF SFOPMA BIT=1 (16 BIT woros) 
CLR @PHCA sCYLINDFR =0 


3*AS EXCEPTION IS ASSERTED PEFORE RUN IS 

S*LATCHED RHSC,RHBA,RHCS1,RHCS2 CANNOT BE CHECKED 

S*BECAUSE RHWC WILL VARY PEPEWDING UPON GATE DELAYS Clb 
3*OW OLFFERENT UNITS 
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DZRJGA.P11 29-MAR-76 00:00 T121 ERROR REGISTER 1- BIT 810 “TAE° 
6176 
8177 3*THE REGISTERS WILL BE SAVED IN RETHTO BUFFER 
8178 040306 004037 043226 JSR RO, BSSAVER sSAVE 
8179 040312 001642 RHER1 FROM 
8180 040314 003154 RE INTO 270 
aan 040316 000015 13. sNUMBER SAVED 
1 
8183 3*CO TO WRITE HEADER AND DATA 
8164 
8185 040320 013700 001660 “ov @SRAMR,RO 3RWOW RO HAS MAINTENANCE REG. ADDR. 
8186 040324 012710 000001 MOV SOND, @RO sSET DIAGHOSTIC MODE 
rope 040330 052777 000001 141302 BIS 8CO, @RHCS1 260 
168 
8189 s*CHANGE SAVED REGISTERS TO EXPECTED VALUE 
6190 040336 012737 002000 003154 nov OTAE, QSRETETO 3SAVED RARER 
8191 040344 012737 000027 003156 nov #23.,@8RETETOC2Z3SAVED anosrt 
8192 040352 013737 002016 003170 nov OPATTENT, QERETETOCL4 SSAVED ARMAS 
8193 040360 052737 000001 003172 BIS GDMD, ROREINTOC1G ZSAVED RANR 
abe 040366 052737 140000 003174 BIS SATALERR, OBRETUTO*20 SSAVED RADS1 
1 
8196 3*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DORE 
8197 040374 004037 043226 JSR RO, @ESAVER sSAVE 
8198 040400 001642 RHERI 3FROM 
8199 040402 002110 wRFPOM 270 
rene 040464 000015 13. sNUMBER OF REGISTERS SAVED 
8202 *as UPPER BYTE OF RHAS CAN BE CHANCING IN A DUAL PORT 
8203 s*OPERATION TRE UPPER BYTF OF RHAS WILL BE SAVED AS IS 
8204 3*SO THAT TRE COMPARES ARE OWLY VALID FOR TRE LOWER BYTE 
2 040406 113737 003171 002125 MOvVB OSREINTO*1S, PBURFROM*IS;SSAVE UPPER RHAS 
8207 
820° 3*COMPARE REGISTERS BEFORE READ IW PRESET COMMAND 
8209 3*WITH AFTER COMMAND 
8210 040414 004037 043430 JSR RO, RECOMPAR 3COMPARE 
6211 040420 003154 REINTO 26000 BUFFEP 
8212 040422 002110 wRFROY sTEST BUFFER 
8213 040424 000015 13. sRUMBER OF PECISTERS 
8214 040426 040434 2$ SRETURW FOR ERROR 
8215 040430 040434 2$ 3SAME 
8216 040432 040454 3$ SRETURN FOR GOOD COMPARTSON 
6217 
8218 040434 013705 047320 2$: MoV @SERWORD, PS sCETTING READY TO IRDEX 
8219 040440 060505 aDD R5,PS ZDOUBLE ERROR WORD 
8220 040442 016537 901640 042204 mov RHER1-2(R5),@#REGADR ;FAILING REG. ADDRESS 
8221 040450 104001 ERROR 1 dFOPCED [AE CAUSED IMPROPER 
8222 sRECISTER CHARGE 
8223 040452 000207 RTS Pc sPETUPH FOR FURTHER COMPARISONS 
8224 
8225 3*O ERRORS 
8226 
—* 040454 004737 042534 252 JSR PC, @SCLDISK sCLEAR GO BIT 
8228 
8229 


bib 
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DZRJGA.P11 29-MAR-76 00:00 riri ERROR REGISTER 1- BIT 910 °TAE* 
8230 
8231 33 SRSARAARAKAARSKKAAAARASANHAASHAAHANARHHARKRAHRAKHeAH HHA AKReReeeseeeeeeneeea 
823? 3*TEST 122 ERROR REGISTER 1- BIT 910 “TAE* 
8232 
8234 300 A WRITE DATA TS GIVEN TO SECTOR 0 
8235 3ee TRACK © CYLINDER 411 
8236 >ee 
8237 ee WORD COUNT IS SET TO 256. 
8238 3ee AW INDEX PULSE IS GIVEN TO GET PHLA TO 0 
8239 3* 
8240 3ee 
6241 zee IAE BIT SHOULD ser 
*8 3 3 &IIIIIIIIIIIXVVXVEXEEEIUIIIIZICäZXVCICOIIACIIICCG 
8244 040460 000004 TST122: SCOPE 
8245 040462 012706 001000 MOV SSTACK, SP sRESET STACK 
8246 040466 012737 000122 002032 NOV STTNO,QSTSTNM jJTHIS SAVES TEST NUMBER 
8247 040474 004737 042534 JSR PC, @OCLDISK PCLEAR REGISTERS AMD SET UNIT NO. 
8248 
8249 S°GIVE INDEX PULSE 
3250 040500 012777 000001 141152 MOV #DHD, ARAMR 3SET DEAGHOSTIC MODE 
8251 040506 052777 000004 141144 BIS SMINX, @RHMR 9SET TINDER 
8252 040514 042777 000004 141136 BIC QM INK, QRHWR 3CLEAP INDEX 
8253 
8254 S*THESE ARE REGULAR SETUPS 
55 
8256 040522 012777 177400 141102 nov #-256.,0RHUC 5256 DATA WORDS 4 HEADER woRDS 
8257 040530 012700 002110 nov #¥RFRON, RO 3THESE TWO IBSTRUCTIONS GETS 
8258 040534 010077 141074 nov RO, @RHAA 3ADDR. OF WRFRON THTO RO AND 
8259 3RUS ADDRESS REGISTER 
8260 040540 012705 000400 MOV #256.,85 3COUNTER 
8261 040544 012720 177777 1$: NOV 8-1,(RO)* 3MOVE ALL OWES FOR DATA 
8262 040550 005305 Dec RS 
8263 040552 001374 BWE i$ 3PRAWCH IF DATA NUT COMPLETE 
8264 040554 012777 000000 141062 Mov #0.,@PHDST 3TRACF=0 SECTOR=0 
8265 
8266 040562 004737 042570 JSR PC, ASCHECET sCHECK THAT DVA,RDY,DPR,ORY = 1 
8267 040566 104401 062145 TYPE ,CPHALT 3AND THAT NO OTRERS = 1. CANNOT CON- 
8268 STINUE TESTING IF BOTH ARENT TRUE 
8269 040572 000000 HALT 3STOP THE TEST 
8270 
8271 040574 013711 002062 MOV @PURIDAT,@R1 ZCET PEADY FOP WRITE 
8272 3DATA WITH 60 IW RHCS1 
8273 040600 005037 002006 cun @tERFLGS SCLEAR ERROR FLAG 
8274 040604 012777 010000 141036 MoV #FMT22,@RHOF = j3FORMA BIT=1 (16 BIT WORDS) 
8275 
8276 040612 005737 002036 rst @*RPOG MOVE FLAG TO ITSELF TO TEST 
8277 040616 001404 BEG 4$ 3TREAT DRIVE AS RPO4 TF FLAG = 0 
8278 
8279 040620 012777 001457 141024 MOV 8815., aPHCA sCYLINDER = 815 (OWE TOO MARY) 
8280 040626 000402 BR 5s STREAT DRIVE AS RPOS 
8281 
8282 040630 012777 000633 141014 4s: MoV #411.,@°HCA SCYLINDER = 411 (ONE TOO MANY) 
8283 3TREAT DRIVE AS RPO4 
8284 lb 
8285 3*AS EXCEPTION IS ASSERTED BEFOPE 20m IS 
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OZRIGA.P11 29-MAR-76 00:00 7122 ERROR REGISTER 1- BIT 810 °IAE° \ 
9296 S*LATCHED RHWC,2HBA,RHCS1,RHCS2 CANNOT BE CHECKED 
6287 J*BECAUSE RHWC WILL VARY DEPENDING UPON GATE DELAYS | 
8298 3*ON DIFFERENT UNITS 
8289 
8290 3*THE REGISTERS WILL BE SAVED IW REINTO BUFFER | 
8291 040636 004037 043226 5S: JSR RO, @BSAVER 3 SAVE 
8292 040642 001642 RHERI FROM 
8293 040644 003154 RE INTO 3T0 { 
8294 040646 000015 13. NUMBER SAVED 
8295 
ares 3*GO TO WRITE HEADER AND DATA | 
8298 040650 013700 001660 mov @#RAMR,RO 3¥OW RO HAS MAINTENANCE REG. ADDR. 
8299 040654 012710 000001 MOV gDMD, @RO 3SET DIAGNOSTIC MODE | 
* 040660 052777 000001 140752 BIs #60, @RHCS1 360 
301 
8302 S*CHANGE SAVED REGISTERS TO EXPECTED VALUE | 
8303 040666 012737 002000 003154 ov @IAE, @@RETNTO 3SAVED RAER1 
8304 040674 012737 000001 003156 MoV #1.,Q@REINTO*2;SAVED RHDST 
8305 040702 013737 002016 003170 MOV QPATTENT, @PREINTOCL4 ;SAVED RAAS | 
8306 040710 052737 000001 003172 BIs SDMD, ABRETNTO*1G SSAVED RNR 
e307 040716 052737 140000 003174 BIS @ATATERR, @BRETNTOC20 3SAVED RADS1 | 
8309 3*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DUNE 
8310 040724 004037 043226 JSR RO, @SSAVER SAVE 
8311 040730 001642 * RRERL FROM | 
8312 040732 002110 WRFPROM 370 
e388 040734 900015 13. 3NUMBER OF REGISTERS SAVED | 
14 
3315 3*AS UPPER BYTE OF RHAS CAN BE CHANGING IW A DUAL PORT 
8216 3*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
8317 3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE | 
8319 040736 113737 003171 002125 MOVR QPREINTOC1S, Q@BURFROMCISZSAVE UPPER RHAS : 
8319 
8320 
8321 3*COMPARE REGISTERS BEFORE PEAD IN PRESET COMMAND 
332? 3*WITH AFTER COMMAND 
8323 040744 004037 043430 JSR RO, R@SCOMPAR COMPARE | 
8324 040750 003154 REIRTO 3G000 BUFFER 
8325 040752 002110 WRFROM TEST BUFFER 
3326 040754 000015 13. sNUMBER OF REGISTERS | 
8227 040756 040764 2$ 3RETURN FOR ERROR 
8328 040760 040764 2s 3 SAME 
8329 040762 041004 3$ 3RETUPN FOR GOOD COMPARISON 
8330 
8331 040764 013705 047320 25: MoV @#ERWORD, PS GETTING READY TO INDEX 
8332 040770 060505 ADD RS,RS 3DOUBLE ERROR WORD | 
8333 040772 016537 001640 042204 MoV RHEP1-2(R5),@#REGADR 3FAILING REG. ADDRESS 
8334 041000 104001 ERROR 1 3FORCFD IAE CAUSED IMPROPER 
8335 ZRECISTER CHANGE 
8336 041002 000207 RTS Pc 3RETURN FOR FURTHER COMPARISORS 
8337 
3339 30 ERRORS | 
8339 


- 8340 041004 004737 042534 3$: usa PC, @$CLDISK sCLFEAP CO BIT FIé 
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8341 
9342 
6343 
8344 
8345 
8346 
8347 
8348 
6349 
8350 
8351 
8352 
8353 
8354 
8355 
6356 
8357 
8358 
8359 
6360 
8361 
8362 
8363 
8364 
8365 
8366 
8367 
8368 
8369 
8370 
8371 
8372 
8373 
8374 
8375 
8376 
8377 
8378 
8379 
8380 
8381 
8382 
8333 
6284 
8385 
8386 
8337 
8368 
8389 
8390 
$391 
8392 
8393 
8394 
8395 
8396 


041010 
041012 
041020 
041026 
041032 


041106 
041106 
041112 
041114 
041120 


041126 
041126 
041132 
041134 
041140 
041144 


041150 


041152 
041156 
041162 
041166 
041170 
041174 


041200 
041204 
041206 
041212 
041216 
041220 
041222 
041224 
041230 


29-MAR-76 00:00 


000004 
012737 
012737 
104401 
000425 


013746 
104405 
104401 
000402 


013746 
104405 
005037 
005037 
005737 


001413 


005237 
104401 
013746 
104405 
104401 
000137 


005337 
001413 
013700 
012701 
022100 
001401 
000775 
011137 
000137 


000001 001212 
000000 177776 
041034 


001774 
041122 


001112 


001112 
001102 
002002 


001100 
041341 
001100 


041336 
007460 


001776 


001774 
001754 


001774 
007460 
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T123 END OF DRIVE 


3 XVXXVXVXXVVVXXVOCXVV 


s*TEST 123 EWD OF DRIVE 

—8 TRIS IS THE EWD OF TEST FOR OWE DPIVE 

wo IF THERE ARE MORE DRIVES THEN TPE PROGRAM 

3** JUMPS TO TEST S FOR NEXT ORIVE TEST 

3ee END PASS IS REACHED ONLY AFTEP ALL DRIVES ARE COMPLETE 


JP TMMA Reece eeeeeaerenenevaasaneeneeseeegeeveneneaneaaeneerereeerere 


TST123: SCOPE 


3365$: .ASCIZ 
64S: 


3367$: 
66$: 


3$3 DEC 


152 CMP 


2$3 MoV 


-S8TTL END OF 


Sl ,STIMES 
#0,°S 
265$ 

64$ 


3300 1 ITERATION 
SREINSTATE PS TO O 
33TVYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


<15><€12>/TOTAL ERRORS OW THIS PASS OB UNIT HO. / 


@PUNIT,-( SP) sGET PEADY TO TYPE UNIT WUNBER 
267$ saTYPE ASCIZ STRING 
66$ 33GET OVER THE ASCIZ 
f= 7 
@RSERTTL,-(SP)  s;CGET READY TO TYPE NUMBER OF ERRORS 
@SSERTTL sCLEAR TOTAL RUMBER OF ERRORS 
eeSTSTNM sCLEAR TEST BURBER 
@BSELECT SSTARTING FROM 210 ? 
3$ 3TEST MEXT ORIVE IF NOT 

SCORTINUE ON THIS ONE IF SO 
e#SPAss sTINCREASE PASS COUNT 
@SENDNG sTYPE ERD PASS # 
@8$PASS,-( SP) 
@ SERULL 
@SNOUNITS 3NO. OF UNITS PRESENT DECREVENTED 
$eoPp sBRANCH IF ALL DRIVES COMPLETE 
QPUNIT,RO sUNIT UNDER TEST 
@UNITS,R1 sTAPLE 
CR1)¢,R0 31S THIS UNIT JUST TESTED 
2$ sPRAUCH IF VES 
1$ sBRANCH IF HO 
(Ri), @8UNIT sTHIS IS WEXT UNIT 
eeTSTS 8GO FOR NEXT TESTS ——— — — 
***SUBROUTINES***® 


PASS ROUTINE 


PPT MM eeeeevencenasaereeeraegeeaeagereneeeneaanerareeenageeennaeenaen 


Glo 
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DZRIGA.P11 29-MAR-76 00:00 ENO OF PASS ROUTINE 
8397 S* INCREMENT THE PASS NUMBER (SPASS) 
8398 2*TYPE "END PASS @XXXXX" (WHERE KXXEX IS A DECIMAL NUMBER) 
8399 9°IF THERES A MONTTOR GO TO IT 
8400 zeir THERE ISN°T JUYP TO TST1 
8401 
9402 041234 S$EOP: 
8403 041234 000004 SCOPE 
8404 041236 005037 001102 CLR $TsTam 33ZERO THE TEST NUMBER 
8405 041242 005037 001212 CLR $TIMES 33ZERO THE NUMBER OF ITERATIONS 
8406 041246 005237 001100 tuc $PAaSS 22 INCREMENT TWE PASS NUMBER 
8407 041252 042737 100000 001100 Bic #100000,S$PASS 33D00N°T ALLOW A NEG. "UWBER 
8408 041260 005327 DEC (PC)e 33LOOP? 
8409 041262 000001 SeoPpct: .worPD 1 
8410 041264 003022 act S$OOAGN a3ves 
8411 041266 012737 mov (PC), @(PC)e sRESTORE COUNTER 
8412 041270 000001 SENDCT:*.WORD 1 
8413 041272 041262 $epPct 
9414 041274 104401 041341 TYPE 2 SENOMG 33TYPE "END PASS vae 
8415 041300 013746 001100 mov $PASS,-(SP) 32SAVE SPASS FOR TYPEOUT 
8416 041304 104405 TYPDS 3360 TYPE--DECIMAL ASCII WITH SIGH 
8417 041306 104401 041336 TYPE @SENULL 39TYPE A NULL CRAPACTER 
841% 041312 013700 000042 S$CET42: MOV 0842,R0 33GET MOWITOR ADDRESS 
8419 041316 001405 BFQ $DOAGK J2BRARCH TF BO MORTTOR 
8420 041320 000005 RESET 33CLEAR THE WORLD 
8421 041322 004710 SENDAD: JSR PC, (RO) 33GO TO nONTTOR 
8422 041324 000240 woe 33SAVE ROON 
8423 041326 000240 uop 33FOR 
8424 041330 000240 nop s3aCTil 
8425 041332 —X 
8426 041332 000137 Jue (PC )o 22 RETURN 
8427 041334 005500 SRTWAD: WORD TST1 
8428 041336 377 377 000 SENWULL: .BYTE -1,-1,0 33NULL CHARACTER STING 
8429 041341 015 042412 042116 SENDMNG: .ASCIZ <15><12>/END PASS $/ 
2430 041346 050040 051501 020123 
8431 041354 000043 
8432 
8433 
8434 33 SSSKRASeSeSeR*S*eReeesee* lesa — ————— 
8435 d**HERE IS A DETAILED EXPLAINATION OF HOW THE LOCP OW ERROR WORKS. 
8436 3*°ON HITTING AN ERPOR IF TRE LOOP Of ERROR SWITCH IS SET, THE 
3437 2**PROGRAM GOES BACK - USUALLY BACK TO THE REGCINNING OF THE TEST. 
8438 
8439 3**WHEN THIS OPERATOR SELECTAPLE SCOPE LOOP IS USED THEN THE POTET 
8440 wai **THE PROGRAM GOES BACK TO CAN BE CHANGED. 
9441 d**THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GU ARE: - 
8442 o**1. IT MUST RE WITHIN THE TEST UNDER CONSIDERATION 
8443 3**2. LOOP OW ERROP SWITCH MUST BE SET 
8444 3**3. THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 
8445 **IF THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATICH 
8446 3**THE PROGPAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 
9447 3**TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED 
8448 3**THEN THE PROCRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
8449 3**COMES TO THE ERD OF THE TEST UNDER CONSIDERATION. 
8450 ee HI6 
3451 s**AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 


845? 3**NORMAL OPERATION WILL CONTINUE. 
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8453 
$454 
8455 
6456 
8457 
8458 
8459 
8460 
8461 
8462 
8463 
8464 
8465 
8466 
8467 
8468 
8469 
8470 
6471 
8472 
$473 
8474 
8475 
8476 
8477 
8478 
6479 
8480 
8481 
8482 
8463 
6464 
8485 
6486 
8487 
8488 
3489 
8490 
8491 
8492 
8493 
8494 
8495 
8496 
8497 
8498 
6499 
8500 
8501 
850? 
8503 
8504 
8505 
8506 
8507 
8508 


041356 


041360 
041360 
041364 
041370 


041434 
041434 
041440 
041442 
041446 


041500 
041500 
041504 
041506 
041512 
041516 


041600 
041600 
041604 


041666 
041666 
041672 


041740 
041740 
041742 
041746 
041752 
041756 


042016 
042016 
042022 


042124 
042124 
042126 
042132 
042136 


29-MAR-76 00:00 


005037 
104401 
000421 


013746 
104402 
104401 
000414 


013746 
104402 
104401 
104401 
000430 


104401 
000430 


104401 
00042? 


104412 
062716 
012637 
104401 
000417 


104401 
000440 


104412 
012637 
013746 
000002 


177776 
041372 


002032 
041450 


001110 


001223 
041520 


041606 


041674 


000002 
001106 
041760 


042024 


001110 
001106 


END OF PASS ROUTINE 


33 IXVVVE 


TESTAD: 
OPERSEL? 


3365S 
64S: 


3367$3 
66S: 


3369$3 
68S: 


3371S: 
70S: 


3373$% 
72$% 


3375$3 
74S: 


3377S: 
76$3 


0 sFIPST ADDRESS OF TEST 
CLR Ps gMAKE PROCESSOR STATUS ZERO 
TYPE 65S 33TYPE ASCIZ STRING 
BR 64$ 33GET OVER THE ASCIZ 
eASCIZ <15>€12>/THE PROGRAM WAS IN TEST FUMBER / 
uov GOTSTNM,-(SP) ;CET READY TO TYPE TEST 
Tveoc suumBrR 
TYPE 267$ dOTYPE ASCIZ STRING 
BR 66$ 33GET OVER THE ASCIZ 
eASCIZ <15>¢€12>/THE LOOP BACK PC WAS / 
“ov @PSLPERR,-(SP)  3CET READY TO TYPE LOOP BACK PC 
rvpoc 
TYPE eSCRLF 
TYPE 7269S d3TYPE ASCIZ STRING 
Be 68$ 93GET OVER THE ASCIZ 
eASCIZ <15><12>/SET SWITCH FOR LOOP On ERROR OR LOOP ON TEST/ 
TYPE 271s 33TYPE ASCIZ STRING 
BR 70$ 33GET OVER THE ASCIZ 
eASCIZ <15><€12>/TYPE THE FIRST PC OF THE TEST TO BE LOOPED Ons 
TYPE 273$ a3TYPE ASCIZ STRING 
~ BR 72$ 33GET OVER THE ASCIZ 
eASCIZ <€15>¢€12>/ FOLLOWED BY A CARRIAGE RETURN /<15><12> 
rooct 
ADD #2,(SP) gcET LPaDR 
MOV (SP)¢,a@SLPADR 
TYPE 275s 33TYPE ASCIZ STRING 
aR 74$ 33CET OVER THE ASCIZ 
eASCIZ ¢15><12>/TYPE THE PC WHERE YOU WART/ 
TYPE 77S 33TYPE ASCIZ STRING 
BP 16$ 39GET OVER THE ASCIZ 
eASCIZ <15><12>/ THE PROGRAM TO LOOP BACK TO FOLLOWED BY A CARRIAGE RETURN /<15 
rDoct 
MOV (SP)*,@8SLPERR  3CET LPEKP 
— @#SLPADR,-(SP) 


eSBTTL SAVF REGISTERS ROUTINE 


a*THIS SAVES THE CONTENTS OF ALL HARDWARE REGISTERS Tif 
3*IN MEMORY LOCATIONS TAGED FROM “wC" TO "EC2" 
3? 
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DZRIGA.P11 29-MAR-76 00:00 SAVE REGISTERS ROUTINE ( 
8509 3* 
8510 2*THIS ITS DONE SO THAT COMPARES ARE DONE WITH SAVED LocaTIONS ( 
8511 d*AAD WOT THE REGISTERS THEMSELVES. THIS WILL MAKE 
esi? d*ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT 
8514 042140 PUTREG: 
8515 042140 010046 Mov RO, -(SP) 33PUSH RO OW STACK 
8516 042142 010146 mov R1,-(SP) 39PUSH R1 ON STACK ( 
8517 042144 010246 mov R2,-(SP) 33PUSH R2 OW STACK 
8518 042146 012700 001632 MOV gRHWC,RO SSTARTING ADDRESS OF REC 
8519 042152 012701 001706 mov euc,R1 sSTARTING ADDRESS OF WERE SAVED ( 
8520 042156 012702 000023 Mov @RUCC-RHWCO2/2,R2 PRUMBER OF REG. INTO R2 
8521 042162 013021 10$: mov @(ROD*,(R1)* ZSAVE HARDWARE REC. 
8522 042164 005302 DEC e? ( 
8523 042166 001375 BRE 10$ 
8524 042170 012602 mov (SP)e¢,R2 33P0P STACK INTO R2 
8525 042172 012601 mov (SP)¢,R1 33POP STACK INTO Ri ( 
8526 042174 012600 mov (SP)¢,R0 33POP STACK INTO PRO 
8527 042176 000207 RTS PC 
8528 ( 
8529 
8530 
8531 ( 
8532 
8533 eSBTTL FLOAT 1 AND 0 
8534 
8535 
8536 3*FLOAT A ONE AND A ZERO THRU A DESIGNATED REGISTER 
8537 3*ABSOLUTE ADDRESS OF REG. UNDER TEST IS IN R4 ( 
8538 
8539 042200 000000 MASK: 0 sPITS UNDER TEST 
8540 042202 000000 LERR: 0 sERROR HLT ADDRESS ( 
8541 042204 000000 REGADR: 0 
8542 
8543 042206 012537 042200 BITST: MOV (PS)e, MASK 3FETCH DATA MASK ( 
8544 042212 012504 MOV (RS)*, R4 3GET ADDRESS OF REG. UNDER TEST 
8545 042214 010437 042204 MOV k4, REGADR 
8546 042220 010537 042202 MoV RS, LERR ICET ERROR RETURN ADDR. ( 
8547 042224 062705 000004 aDD #4, Bs sMODIFY RETORW ADDR. TO JUMP OVER RTS 
8548 042230 012703 000001 mov #1, R3 ZIMITIALIZE DATA PATTERN 
8549 042234 004737 042256 BLT1: JSR PC, BLT2 s0UTPUT FLOATING ZERO ( 
8550 042240 004737 042256 JSR PC, BLT? pOUTPUT FLOATING ONE 
8551 042244 000241 CLC 
8552 042246 006103 ROL R3 sSHIFT PATTERN ( 
8553 042250 005703 Tst a 
8554 042252 001370 BNE BLT1 PBRAWCH IF NOT COMPLETE 
8555 042254 000205 RTS RS sRETURN TO TEST 
8556 042256 005103 BLT2: COM RY 3COMPLEMENT PATTERN 
8557 042260 012737 042266 042514 MoV #8LT3, @#LAD 4 SET SCOPE LOOP 
855@ 042266 032777 001000 136644 BLT3: BIT #Su09,aSuP »LOOP OW ERROR 
8559 042274 001411 BFQ 4s 3PRAWCH IF WO 
8560 042276 105737 001103 TSTE «6 @#SERFLG 2ANY ERRORS ( 
8561 042302 001406 BEQ 4§ sBRANCH IF NO 
8562 042304 000005 RESET SSTART WITH AN INIT Ylb 
8563 042306 013777 001774 137322 MOV Q@#UNIT,@RHCS2 ZSET UNIT NUMBER UNDER TEST ( 
8564 042314 004737 054672 JSR PC, RESTFINT sINITILIZE TK 





MNDEC-11-D0ZRJG-A, RPO4/S/6 DSKLS mee ey A i 0 


DZRIGA.P11 29=MAR=76 00:00 T 1 AND 
8565 dINIT FOR SCOPING LOOPS 
8566 042320 010337 001124 4$3 MOV R3,@8SGDDAT pSTORE GOOD DATA 
8567 042324 005137 042200 CON @eMasK aud MASK WITH PATTERS 
8568 042330 043737 042200 001124 BIC dauast, OSSCODAT sCLEAR THE REST 
8569 042336 005137 042200 CON QeMASK SRESTORE MASK 
8570 042342 013714 001124 MOV @*SCODAT,(R4)  jOUTPUT TO REGISTER 
8571 042346 011437 001126 mov (R4),@8SBDDAT ;INPUT PROM REGISTER 
8572 042352 005137 042200 COM QaMAsK 
8573 042356 043737 042200 001126 BIC QONASK/@#SBDDAT JAND MASK OUT RECEIVED DATA 
8574 042364 005137 042200 CON eens SRESTORE MASK 
8575 042370 023737 001124 001126 cue —E 218 DATA CORRECT 
8576 042376 001424 BEQ 1$ sBRAUCH IF GOOD 
8577 042400 011437 001126 mov (R4), @8S8DDAT 
8578 042404 023704 001640 CMP @eRHCS1,R4 SREGISTER UNDER TEST RHCS1? 
8579 042410 001004 BNE 2$ sBRANCH IF NOT 
8580 042412 052737 004200 001124 BIS @RDVIDVA,@SSGODATSET ROY AND OVA 
8581 042420 000410 BR 3$ 
8582 042422 023704 001636 2$: cue eeRics2, 4 PREGISTER UNDER TEST RHCS2? 
8583 042426 001005 BRE 3$ pBRANCH IP NOT 
8584 042430 011446 Mov eR4, -( SP) aGET RHCS2 
8585 042432 042716 177477 BIc #“CCIRIOR>,(SP) PKEEP IR AND OR BIT 
8586 042436 052637 001124 BTSs (SP)*,@8SCDDAT  9SET TR OR BITS IF WEEDED 
8587 042442 004777 177534 3$3 JSR PC, @LERR 960 TO REPORT ERROR 
8588 042446 000240 wop SREPLACE BY 104420 POR LOCAL scope Looe 
8589 042450 000207 1S: RTS pc 
8590 
8591 
8592 eSBTTL CLEAR MEMORY ROUTINE 
8594 * THIS CLEARS AWY BLOCK OF WEWORY 
8595 3° FILLING IT WITH ANY DATA 
8596 3e 
8597 3° CALL 
8598 * JSR RO,CLAREA 
8599 3* x SSTARTING ADDRESS OF BLOCK 
8600 3° ¥ 
8601 be 2 20aa TO 8E FILLED 
8602 3*R1 WILL HAVE STARTING ADDRESS OF PLOCK TO BE FILLED 
8603 3*R2 AFTER SUBTRACTION WILL HAVE TWICE NUMBER OF LOCATIONS 
8604 9*R3 WILL HAVE DATA TO BE FILLED 
8605 3*TO AVOID DIVIDE ROUTINE TWO DECREMEWT R2 WILL BF USED 
8606 
8607 
8608 042452 CLAREAS 
8609 042452 010146 MOV R1,-(SP) 32PUSH R1 OW STACK 
8610 042454 010246 Mov R2,-(SP) 33PUSH R2 ON STACK 
8611 042456 010346 MoV R3,-(SP) 93PUSH R3 ON STACK 
8612 042460 012001 MOV (RO)*,R1 >FROM 
8613 042462 012002 mov (RO)*,R2 3T0 
8614 042464 012003 MOV (RO), R3 sDATA 
8615 042466 160102 SUB R1,R2 9¥O. OF LOCATIONS MINUS TWO 
8616 042470 062702 000002 aD #2,R2 3GET TWICE NC OF LOCATIONS 
8617 042474 010321 1$: MoV R3, (R16 swoVe IN DATA 
8618 042476 005302 DEC R2 
8619 042500 005302 DEC R2 
8620 042502 001374 BNE 1s sPRANCH IF NOT COMPLETE 
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Klb 
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OZRIGA.P11 29-MAR-76 00:00 CLEAR MEMORY ROUTINE ( 
8621 042504 012603 mov (SP)¢,R3 33P0P STACK INTO R3 
8622 042506 012602 MOV (SP)*,R? 33PO0P STACK INTO R2 ( 
8623 042510 012601 nov (SP)e,R1 33P0P STACK INTO R1 
8624 042512 000200 RTS RO IPETURN 
( 
( 
( 
( 
( 
( 
( 
2 
( 
( 
( 
( 
( 
( 
( 
( 
( 


Wb 
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8625 
8626 
8627 
8628 
8629 
8630 
8631 
8632 
8633 
8634 
8635 
8636 
8637 
8638 
3639 
8640 
6641 
8642 
8643 
8644 
8645 
8646 
8647 
8648 
8649 
8650 
8651 
8652 


042514 


042516 
042524 
042526 
042532 


042534 
042540 
042544 
042550 


042554 
042560 
042564 
042566 


29-MAR-76 00:00 


032777 
001402 
013716 
000002 


013701 
013702 
013703 
013704 


012712 
013712 
005011 
000207 


001000 136414 fT.SCOP: BIT 


042514 


001640 
001636 
001662 
001642 


000040 
001774 


LOCAL TRAPS 

e SBTTL 
LAD: 0 

BEQ 
MoV 
182 RTI 
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LOCAL TRAPS 


= @SUR 
$ 
@@LAD, (SP) 


d*EXAMPLE OF THE USE OF THE ABOVE 
s*THIS WILL LOOP BETWEEN Xz AWD SCOP1 PROVIDED THERE IS uO “HEUTST® 


3*MOV = BK, 


3 ey 3 ome 
3 a eee 
3 2 ——— 


scopi 


58771 
CLOISK: MOV 


@#LAD 


CLEAR DISK ROUTINE 


@#RACS1, RY 3R1 WILL BE CONTROL AND STATUSI 
@SRHCS2, R2 3R2 WILL BE CONTROL AND STATUS2 
@#RHDS1, R3 3R3 WILL BE DISK STATUS REGISTERI 
@@RHERI, R4 3R4 WILL BE ERROR REGISTER #1 
@CLR,@R2 sCLEAR ALL REG. 

QUNIT, @R2 SREINSTATE UNIT NO. 

= dCLEAR FUNCTION BITS 


mit 








MNDEC- 1) -0Z9IC-8,8P 04/5/75 OSKLS CONTROLLER TST-PT j 


O7HIGR.PLL 29-¥A2-76 3030) CLEAR DIS PUUTINE 
865” 
665° 
9955 eSOTTt CHECK 
aace 
8657 
8459 
66593 
9450 
6641 ' 
8662 042570 611637 092014 CHECKT: MOV (SP), @@PCJSP 
8663 942574 162737 000004 002014 sus 84, 8@PCISR 
8664 042602 004737 042140 JSR PC, aBPUTPEG 
oor 042606 022737 004200 001714 Cup SPVALSDY, BCS) 
66* 
8667 042614 0C142? BEQ 3$ 
866F 
§669 042616 032737 004000 001714 BIT #D0VA,@8CS1 
9*79 042624 001004 BNE 1s 
8671 042626 010137 00112? MOV P1,@8S30ADK 
8672 042632 104026 ERROR 26 
$673 
3674 042634 000413 BR 3$ 
BET= 042636 032737 000200 001714 15S: BIT #ROY, @8CS1 
8676 042644 001003 BNE 2$ 
3677 042646 010137 001122 MOV R1,@#SS8DADR 
867" 042652 104026 ERROR 26 
6679 
8630 042654 000403 2$: BR 3$ 
8681 042656 010137 001122 MOV P1,8¢SBDADR 
8582 042662 104026 ERROR 26 
$683 
3634 
8685 
8686 042664 013746 001736 35: MOV @#0S1,-(SP) 
8637 042670 042716 001100 BIC #VV IPROG, (SP) 
868" 042674 022726 000600 CMP 
8689 042700 001424 BEQ 6$ 
8590 
8691 042702 032737 000400 001736 4$: BIT #OPR,@40S1 
8692 042710 001004 BNE 58 
8693 042712 010337 001122 MOV R3, @#SBDADR 
8694 042716 104026 ERROR 26 
8695 042720 000413 BR 1$ 
8696 042722 032737 000200 001736 5$: BIT #DRY, 98051 
8697 042730 001004 BNE 6$ 
6699 042732 010337 001122 MOV R37, A#SBDADR 
8699 042736 104026 EPROR 26 
8709 042740 000403 BR 78 
8701 042747 010337 001122 6$: MOV R3, A#SBDADR 
8792 042746 104026 ERROR 26 
8703 
8704 
tae: 042750 000207 7$3 RTS Pc 
06 
8707 042752 062716 000006 8S: ADD #6,(S5°) 
B708 042756 PC 


000207 RTS 


MACVi1 30(01946) 


CB-LEC-77 13257 PAGE 1% 


DISF STATUS ROUTINES 


s*THIS CHFECRS THAT DEVICE AVAILABLE (OVA) ANC FEADY (¥O¥) IN FACS = 1 
F°AND CHECKS THAT DEVICE PRESENT (OPK), DEVICE PEADY (ORY) IN RHDS1 = 1 
s*IT ALSO CPECKS THAT WO OTHEP BITS IW THESE FECISTERKS = 1 


sSAVE PC OF USRO4 

sGET PC OF JSP 

gSAVE REGISTERS 

sPHCS] SHOULD HAVE DEVICE AVAILABLE 
3AND PE READY 

sPRANCH IF COND 


s8aP SO TEST DEVICE AVAILABLE 
JPRANCH IF DVA THERE 

ZADDRESS OF BAD REGISTER (RHCS1) 
sRHCS1 DID WOT HAVE DEVICE | 
Z AVAILABLE AT STAPT OF TEST 

S8RANCH TO WEXT COMPARE 

sTEST READY 
3YF ROY THERE BOANCH 

ZADDRESS OF BAD REGISTER (RHCS1) 

3°HCS1 DID NOT HAVE KEADY 
sRIGHT AT START OF TEST 

SPRANCH TO WEXT COMPARE 

ZROMRESS OF BAD REGISTER (RHCS1) 
ZRHCS1 HAD SOME BITS OTHER 

7THAN DVA AND RDY SET 

SALL OTHER BITS SHOULD BE 0 


3GET PHDS1 
sCLEAR VV AXD PROGRAMABLE BIT 


#OPRIDRY,(SP)*¢;PHDS1 SHOULD HAVE THESE SET 


sBRANCH IF THEY ARE 


sTEST DRIVE PRESENT 

sCONTINUE IF THERE 

Zs ADDRESS OF BAD REGISTER (RHDS1) 
3PHDS1 DOES NOT HAVE DPR 

sPRANCH OUT 

sTEST DRIVE READY 

31F DPR WAS THERE, RARAWCH IF GOOD 
ZADNRESS OF BAD REGISTER (RHDS1) 
#PHDS1 DOSS NOT HAVE DRY 

ZPRANCH OUT 

SADDRESS OF BAD REGISTER (RHOS1) 
7PHDS1 HAS SCME BITS OTHER 

3THAN MOL, DRY, DPR, SET 

3ALL OTHER BITS SHOULD BE 0 
sPETURN TO TEST AND HALT 


sADJUST STACK TO GET OVER HALT IN TEST 
sPETURN TO TEST AND CONTINUE TESTING. Al 
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MACY11 30(1046) O8-DEC-77 13:57 PAGE 199 
O7ZRJGA.P11 29-MAR-76 00:00 CHECK DISK STATUS ROUTINES ° 
8709 


Bi 


V 


MNDEC-11-DZRJG-A,RPO04/5/6 DSKLS CONTROLLER TST-PT 1 
29-MAR-76 00:00 


DZRIGA.P11 


8710 
8711 
6712 
6713 
8714 
6715 
6716 
8717 
6718 
8719 
8720 
8721 
872? 
8723 
6724 
8725 
8726 
8727 
8728 
8729 
8730 
8731 
8732 
8733 
8734 
8735 
8736 
6737 
8738 
8739 
8749 
8741 
6742 
8743 
8744 


042760 
042764 
042772 
042776 


043004 
043006 
043012 


043014 
043016 


043024 
043026 
043032 


043034 
043036 
043044 
043046 
043052 
043054 
043056 
043064 
043066 
043072 


043074 


043076 
043102 


011637 
162737 
004737 
032737 


001004 
010137 
104026 


000427 
032737 


001004 
010137 
104026 


000417 
032737 
001004 
010337 
1040 26 
000407 
032737 
001004 
010337 
104026 


000207 


062716 
000207 


⸗ 
002014 
000004 
042140 
000200 


001122 


004000 


001122 


000200 


001122 


000400 
001122 


002014 
001714 


001714 


001736 


001736 


s*THIS CHECKS THAT DEVICE AVAILABLE (DVA) AMD READY (RDY) IN RHCS1 = 1 
s*AWD CHECKS THAT DEVICE PRESENT (DPR), DEVICE READY (ORY) Im RHDS1 = 1 


(SP), @8PCISR 


CHECKE: 


iss 


3$3 


4$3 
5$3 


MOV 
SUB 
JSR 
BIT 


BRE 
MOV 
ERROR 


BR 
BIT 


BR 
BIT 
BNE 
MOV 
ERROR 
BP 
BIT 
BWE 
MOV 
ERROR 


RTS 


ADD 
RTS 


MACY11 30(1046) (86-DEC-77 13:57 PAGE 200 
CHECK DISK STATUS ROUTINES 


84, QEPCISR 
PC, ASPUTREG 
#ROY,@#CS1 


1$ 
R1,@#SBDADR 
26 


4$ 
#DVA,R8CS1 


2$ 
R1,°%SSBDADR 
26 


4$ 
#ORY,29DS1 
3$ 
R3,@8S8DADR 
26 


4s 
#OPR,R4DS1 


S$ 
R3,9#SBDADR 
26 


PC 


#6, (SP) 
PC 


sSAVE PC OF JSRe4 

sGET PC OF JSP 

sREAD & SAVE REGISTERS 

3RHCS1 SHOULD HAVE DEVICE AVAILABLE 
3AND BE READY 

sBRANCR IF GOOD 

sFAILING REGISTER 

sRHCS1 IS IW ERROR 

sDOES NOT HAVE OVA, RDY 

sPRAWCH OUT 

sPHCS1 SHOULD HAVE DEVICE AVAILABLE 
sAND PE READY 

sBRANCH IF GOOD 

sFAILING REGISTER 

sRHCS1 TS IN ERROR 

sDOES NOT HAVE DVA, RDY 

sBRANCH OUT 

3RHDS1 SHOULD HAVE DPR,DRY 
sBRANCH IF THERE 

sFAILING REGISTER RADS1 

3PHDS1 DOES WOT HAVE DPR,DRY 
sPRANCH OUT 

#RHDS1 SHOULD HAVE DPR,DRY 
sBRANCH OUT AND CONTINUE IF THERE 
sFAILING REGISTER RHDS1 

ZRHDS1 DOES NOT HAVE DPR,ORY 


sPETURN TO TEST AND HALT 


sa8DJUST STACK TO GET OVER HALT IW TEST 


sRETURN TO TEST AWD CONTINUE TESTING 


Cl 


OWE COOP OR OWE COUNT = 5.15 MICROSEC WITH BIPOLAR MEMORY (MIN) 


MNDEC-11-DZRJG-A,RP04/5/6 DSKLS CONTROLLER TST-PT 1 MACY11 30( 1046) 
DZRIGA.P11 29-MAR-76 00:00 CHECK DISK STATUS ROUTINES 
6745 
8746 
6747 3* WAIT LOOP 
6748 3* 
6749 y= OWE LOOP OR ONE COUNT = 
— —— WITH CORE ERROR IS INDIC 
8751 
8752 043104 177777 TIMCNT: 177777 
8753 043106 010046 WAIT.T: MOV RO, -(SP) 
8754 043110 016600 000002 MOV 2(SP),R0 
8755 043114 010037 001204 MOV RO, @RSTMP3 
8756 043120 162737 000002 001204 SUB @2,88STHP3 
8757 043126 012037 001176 MoV (RO )*, @FSTMPO 
875? 043132 012037 001200 MoV (RO) +, QRSTMPL 
8759 043136 010066 000002 MOV RO, 2(SP) 
8760 043142 012600 MOV (SP )o,R0 
8761 043144 013737 043104 001202 MOV QSTINCNT, RES TMP2 
8762 043152 033777 001200 136016 15: BIT OFS TMP1, @STMPO 
8763 043160 001021 BNE 2$ 
8764 043162 005337 001202 DEC @kSTMP2 
8765 043166 001371 BWE 1$ 
8766 043170 013737 043104 001202 MoV @#TINCNT, OES TMP2 
8767 043176 033777 001200 135772 3$: BIT @S#STMP1, @STMPO 
876% 043204 001007 BNE 2$ 
8769 043206 005337 001202 DEC oo 
8770 043212 001371 BNE 
8771 043714 017737 135756 001126 MOV esture, aeseooar 
8772 043222 104016 ERROR 
8773 043224 000002 283 RTI 
8774 
8775 
8776 
8777 3* CALL FOP THE ABOVE WAITL 
8778 g* 
8779 9 MOV QA, RES 
87890 3* - = “ 
8731 3* * * ad 
878? 3* - - - 
878? 3* WAT 
8784 3*KS: ) 
8735 3* WORD © 
6786 3* 
8787 
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11.86 MICROSEC WITH CORE (MIN) 
ATED AFTER ABOUT 650 MILLISEC (“I8) 


sWAITING COUNT 
sSAVE RO 
3GET ADRESS OF REG. ADDERSS 
SWAT PCo2 IN STHPS 
sWAT PC FOR TYPEOUT 
SWAIT REGISTER ADDRESS 
sWATT OW RIT 
SRESTORE PETURN ON STACK 
sRESTORE FO 
sTEMPORARY COUNT 

31S REQUIRED BIT THERE? 

sBRANCH IF YES 

sCOURT 

SPRANCH IF NOT TIME UP 
ZTEMPORARY COUNT 

31S REQUIRED BIT THERE? 

sPRANCH IF YES 

3COUNT 

sBRANCH IF WOT TIVE UP 

SREGISTER CONTENTS 

sWATTED OW BIT FAILED TO SET 


38 COPTAINS REGISTER ADDRESS 
sPENCE ¥$ WILL HAVE ABSOLUTE REG. ADR. 


ZPBSOLUTE REG. ADDRESS UNDER WAIT 
sS1T WATTED FOR 
sCONTINVE 


Di 
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29-MAR-76 00:00 


OZRIGA.P1L1 


8768 
8789 
8790 
8791 
8792 
8793 
8794 
8795 
8796 
8797 
6798 
6799 
6800 
6801 
8302 
8603 
8804 
6805 
8806 
6807 
680e 
8809 
6810 
8711 
8812 
8813 
6914 
8A15 
8816 
$817 
8818 
6819 
8820 
8821 
882? 
8823 
8824 
6R25 
8626 
8827 
8828 
8829 
8830 
8931 
8832 
8633 
8834 
8335 
8836 
8837 
8838 
8839 
6940 
8841 
8842 
8843 


043226 
043226 
043230 
043232 
043734 
043236 
043240 
043242 
043244 
043246 
043250 
043252 
043254 
043256 


043260 
043266 
043274 
043302 
043306 
043312 
043320 
043324 
043330 
043332 


043334 


043340 
043346 
043354 
043360 
043366 
043372 


010146 
010246 
010346 
012001 
012002 
012003 
013122 
005303 
001375 
012603 
012602 
012601 
000200 


012737 
112737 
112737 
005037 
005037 
012737 
005037 
004537 
047200 
051100 


004737 


012777 
012777 
112746 
112766 
012677 
012777 


010000 
000001 
000001 
047204 
047206 
000044 
047210 
043742 


042534 


177730 
003154 
000001 
000001 
136252 
014000 


CHECK DISK STATUS ROUTINES 


1$3 


047200 WRCHHD: 
047203 
047202 


047260 


136264 
136260 


000001 
136250 


eSBTTL SAVE ROUTINE 
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s*THIS IS A SUBROUTINE TO SAVE REGISTERS 
s*IN THE REGISTER TABLE TO ANY LOCATION 
3*THE CALL IS 


3* JSR 
3*FROM 
3*TO 


3*NUMBER OF WORDS SAVED 


eSBTTL WRITE CHECK 


RO, @BSAVER 


R1,-(SP) 
R2,-( SP) 
R3,-(SP) 
(RO)*,R1 
CRO)*,R2 
(RO), R3 


CRI), (R2 Do 
R3 


1$ 
(SP)¢,R3 
(SP )e,R? 
(SP)¢,R1 
RO 


33PUSH R1 ON STACK 
33PUSH R2 OW STACK 
33PUSH R3 ON STACK 
3FROM 

3TO 

3; NUMBER 

SSAVE REGISTER CONTENTS 
3CoUNT 

3P RANCH IF ROT DOWE 
33POP STACK INTO R3 
33PO0P STACK IWTO R2 
33POP STACK IWTO Rl 


ROUTINE 


s*THIS ITS A SUBROUTINE TO DO WRITE CHECK HEADER AND DATA 
s*CYLINDER 0, TRACK 1, SECTOR 1, KEYS 0 


s*THESE ARE TO SET UP FOR DISFLESS USE ONLY 


MoV 
MOVB 
MOVB 
CLR 
CLR 
MOV 
CLR 
JSR 
CYL 
wCRC 


7 * THESE 
JSR 


MOV 
MOV 
MOVB 
MOVB 
MOV 
MOV 


#FMT22,A8CYL 
#1, @#SECOTRe1 
#1, @#SECOTR 


@PKEY1 
@#KEY2 


#36.,DAWORD 


ex 
RS, @BCRC 


sCYLINDFR O FORMAT 16 BIT WORDS 
sTRACK=1 

3SECTOR=1 

sKEV1=0 

sKEY2=0 

3¥O OF DATA WORDS 

sTHIS ITS A PEAD OPERATION 

260 TO CALCULATE CRC 


ARE REGULAR SETUPS 


PC, R#CLDISK 


#-40.,@QRHWC 
#REINTO,@RHBA 


#1,-(SP) 
#1,1(SP) 


(SP )e, @RHDST 


3SET UP GENERAL REGISTERS 

34ND CLEAR DISK REGISTERS 

336 DATA WORDS 4 HEADER WORDS 
SSTARTING ADDRESS OF READ BUFFER 
3 SECTOR=1 

sTRACK=1 IN UPPER BYTE 

sTRACK=1, SECTOR=1 IN KHDST 


#FMT220ECT,@RHOF 316 SIT WuRDS 


el 
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8844 
8345 
6846 
8847 
6348 
8849 
8850 
8651 
852 
8853 
6854 
6855 
8856 
6RS7 
8858 


043400 
043404 
043410 


043414 
043416 


043422 


043426 


29-MAR-76 00:00 


005077 
004737 
104401 


000000 
013711 


004737 


000207 


130746 
042570 
062145 
002060 


047040 


MACY11 30(1046) 


WRITE CHECK ROUTINE 


CLR 
JSR 
TYPE 


HALT 
MOV 


JSR 


RTS 


@PRHCA 
PC, A8CHECKT 
7 CPHALT 


@#RRCHDT,@R1 
PC, @#CUMHD 


PC 
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ZECC CORRECTION INHIBIT BECAUSE 
sfCC LOGIC IS WOT CHECKED YET 
sCYLIRDER=0 

sCHECK THAT DVA,ROY,DPR,DRY = 1 
3AND THAT NO OTHERS = 1. CANNOT CON- 
sTINUE TESTING IF BOTH AREN°T TRUE 
3STOP THE TEST 

sWRITE CHECK HEADER AND DATA=52 
sTNTO RACSI 

SWRITE CHECK HEADER AND DATA 

3SAME AS READ HEADER AND DATA 


JRETURN TO WRITE CHECK TEST 


Fi 
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DZRJGA.P11 


8859 
8660 
8861 
886? 
BP63 
6864 
8865 
8866 
8867 
6868 
8869 
6970 
88671 
8872 
8873 
8874 
8e75 
6876 
8877 
887" 
6879 
8880 
6681 
88862 
8883 
8884 
6885 
8886 
8887 
8898 
6889 
8890 
6891 
8992 
8893 
e294 
6895 
9996 
6897 
8898 
8899 
8900 
8901 
8902 
8903 
8904 
8905 
8906 
8907 
8908 
3909 
8910 
8911 
8912 
8917 
8914 


043430 
043430 
043432 
043434 
043436 
043440 
043442 
043444 
043446 
043450 
043454 
043460 
043462 
043464 
043466 
043472 
043474 


043476 
043502 
043506 
043512 
043516 
043520 
043524 
043526 
043532 
043534 
043540 
043544 
043550 
04355? 
043554 
043556 
043556 
043560 
043562 
043564 
043566 
043570 


29-MAR-76 00:00 


010146 
010246 
010346 
010446 
010546 
012001 
012002 
012003 
012037 
012037 
011000 
010304 
005204 
010437 
022122 
001426 


014137 
014237 
160337 
005737 
001003 
004777 
000402 
004777 
022122 
017746 
042716 
022726 
001402 
005303 
001344 


012605 
012604 
012603 
012602 
012601 
000200 


001176 
001200 


047320 


001124 
001126 
047320 
002006 


135452 
135446 
135400 


177177 
000200 


MACY11 30(1046) 


WRITE CHECK ROUTINE 


eSBTTL COMPARE ROUTINE 
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s*THIS IS A SUBROUTINE TO COMPAPE TWO BLOCKS IN MEMORY 
#*R1 HAS GOOD DATA BUFFER ADDRESS 

3*R2 HAS TEST DATA BUFFER ADDRESS 

3*STMPO HAS ADDRESS OF RETURN OW ERROR TO PRINT HEADER 
#*STMP1 HAS ADDRESS OF RETURN ON ERROR TO PRINT DATA 
3*R3 HAS NUMBER OF WORDS TO BE COMPARED 

3*R4 HAS ONE MORE THAN NUMBER OF WORDS TO BFE COMPARED 


COMPAR: 
MoV 
MoV 
MoV 
MoV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
Inc 

1S: MOV 
cup 
BEQ 


MOV 
MOV 
sub 
TST 
BKE 
JSR 
BR 
2$3 JSR 
5$: CMP 
MOV 
BIC 
CMP 
BEQ 
3$3 DEC 
BWE 
4S: 


MOV 
MOV 
MOV 
MOV 
MOV 
RTS 


R1,-(SP) 
R2,-(SP) 
R3,-(SP) 
R4,-(SP) 
R5,-(SP) 
CRO) +, R1 
(RO)@,R2 
CRO )@,R3 
(RO)+,STMPO 
(PO) e,S$TMPL 


R4, @SERWORD 
(R1)*,(R2)¢ 
3$ 


-(R1),@8SGODAT 
-(R2),@#SBDDAT 
RI, RRERWORD 
@#EPRFLGS 


2$ 
PC, @STMPO 
$$ 


PC, @STMP1 
(R1)¢,(P2)¢ 
@SWR,-(SP) 
#°C600, (SP) 
——— 


R3 
1$ 


CSP)¢,R5 
(SP)4#,R4 
(SP)¢,R3 
(SP )¢,R? 
(SP)¢,R1 
RO 


33PUSH R1 OW STACK 

33PUSH R2 ON STACF 

33PUSH R3 ON STACF 

33PUSH R4 OW STACK 

33PUSH RS ON STACK 

ZADDRESS OF GOOD DATA BUFFER 
#aDDRESS OF TEST. DATA BUFFER 
3NO OF WORDS TO BE COMPARED 
SRETURM OW ERROR TO PRINT HEADER 
sRETURW OW ERROR TO PRINT DATA 
sRETURN ON NO ERROR 

3¥O OF WORDS TO BE COMPARED 


sFOR ERROR WORD WO 
ZCOMPARE GOOD WITH TEST DATA 
sBRAWCH IF GOOD 


26000 DATA 

sBAD DATA 

ZERROP WORD NO. 

3ANY ERRORS ALREAY THERE 
sPRANCH If YES 

ZRETURN TO PRINT HEADER 


SPRANCH TO AVOID PRINTING WEXT ERROR 


sRETURN TO PRINT DATA 

3UND0 -(R1) AND -(R2) FOR ERRORS 
sCET SWITCH SETTING 

sFEEP ONLY SWITCH 7 AND 8 

31S 7 SET AND & RESET 

sRRANCH OUT IF YES 

sCOUKT 

sPRANCH IF ALL NOT DEVICE 


37POP STACK INTO FS 
33POP STACK INTO F4 
33POP STACK INTO P3 
33POP STACK INTO P2 
3;P0P STACK INTO R1 
ZRETURN TO MAIN PPOGKAM 


MNDEC-11-DZRJG-A,RPO04/5/6 DSKLS 
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6915 
9916 
6917 
8919 
6919 
3°20 
6921 
8922 
8923 
8924 
8925 
8926 
8927 
6928 
8929 
3930 
6931 
8932 
8933 
9934 
8935 
8936 
8937 
9939 
8939 
8940 
3941 
894? 
8943 
8944 
8945 
6946 
6947 
9948 
8949 
8950 
§951 
695? 
8953 
9954 
8955 


043572 
043600 
043606 
043614 
043620 
043624 
043632 


043636 
043642 
043644 


043646 


043652 
043660 
043666 
043672 
043700 
043704 


043712 
043716 
043722 


043726 


043730 
043734 


043740 


29-MAR-76 00:00 


012737 
112737 
112737 
005037 
005037 
012737 
005037 


004537 
047200 
051100 


004737 


012777 
012777 
112746 
112766 
012677 


012777. 


005077 
004737 
104401 


006000 


013711 
004737 


000207 


010000 
000001 
000001 
047204 
047206 
000040 
047210 


043742 


042534 


177740 
003154 
000001 
000001 
135740 
014000 


135734 
042570 
062145 


002056 
047040 
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COMPARE 


047200 WRCHDAS: 
047203 
047202 


047260 


135752 
135746 


000001 
135736 


ROUTINE 


s*THIS IS A SUSROUTINE TO DO WRITE CHECK DATA 
s*CYLINDER 0, TRACK 1, SECTOR 1, KEYS 0 


s*THESE ARE TO SET UP FOR DISFLESS USE ONLY 


“ov #FMT27,Q8CYL sCYLIWNDER O FORMAT 16 BIT WORDS 
MOVB #1, 2#SECOTRe1 sTRACK=1 

MovVR #1, 8@8SECOTR 3SECTOR=1 

CLR @#KEY1 sFEY1=0 

CLR @eKEY2 sR EY2=0 

MOV #32.,@#DAWORD 3"O OF DATA WORDS 

CLR eax sTHTS IS A READ OPERATION 

JSR RS, @#CRC 3GO TO CALCULATE CRC 

CYL 

wcrc 


S*THESE ARE REGULAR SETUPS 


JSR PC, RSCLDISK 3SET UP GENERAL REGISTERS 
3AND CLEAR DISK REGISTERS 
Mov #-32., @RHWC 336 DATA WORDS 4 HEADER WORDS 
MOV #PEINTO,@PRHBA SSTARTING ADDRESS OF PEAD BUFFER 
MOVB #1,-(SP) sSECTOR=1 
MOVB #1,1¢SP) sTRACK=1 IN UPPER BYTE 
MOV (SP )¢,@RHOST STRACK=1, SECTOR=1 IN RHDST 
MOV @FMT220ECT, ARHOF 316 BIT WORDS 


3ECC CORRECTION IWHIBIT BECAUSE 
gECC LOGIC IS WOT CHECKED YET 


CLR @RHCA - sCYLINDER=0 

JSR PC, Q#CHECKT sCHECK THAT DVA,RDY,DPR,DRY = 1 

TYPE 7 CPHALT SAND THAT WO OTHERS = 1. CANNOT CON- 
sTINUE TESTING IF BOTH AREN°T TRUE 

HALT 3STOP THE TEST 

MOV Q@RWRCHER, Qk1 SWRITE CHEC® DATA=50 INTO RHCS1 

JSR PC, A#COWHD SWRITE CHEC® HEADER AND DATA 


7SAVE AS PEAD HEADER AND DATA 
RTS PC SRETURN TO WRITE CHECK TEST 


HI 


MNDEC-11-DZRJG-A,RP04/5/6 OSKLS CONTROLLER TST-PT 1 
29-MAR-76 00200 
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8956 
$957 
8958 
8959 
8960 
8961 
896? 
8963 
9964 
8965 
8964 
3967 
6968 
8969 
8970 
3971 
8972 
8973 
6974 
8975 
8976 
8977 
8978 
8979 
8980 
8981 
8982 
8987 
8984 
8985 
2986 
8987 
69868 
8989 
8990 
8991 
8992 
8993 
8994 
8995 
9996 
8997 
8998 
8999 
9000 
9001 
9002 
9003 
9004 
9005 
9006 
9007 
9008 
9009 
9010 
9011 


043742 
043742 
043744 
043746 
043750 
043752 
043754 
043756 
043760 
043764 
043772 
043776 
044004 
044012 
044016 
044022 
044026 
044030 
044034 
044036 
044040 


044044 
044050 
044052 
044056 
044060 


010046 
012500 
010146 
010246 
010346 
010446 
005001 
005037 
012737 
012037 
012737 
013737 
006037 
006037 
032701 
0014063 
012703 
000401 
005002? 
063703 


032701 
001403 
012702 
000401 
005002 


001210 
000004 
001204 
000020 
001204 
001204 
001210 
000001 


100000 


001210 
040000 
100000 


001176 


001202 
001206 


COMPARE ROUTINE 


CRC: 


1$3 
25: 


35: 
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eSBTTL CPC GENERATION ROUTINE 


s*TPIS IS A SUBROUTINE TO CALCULATE CPC FOR THE FOUR 
s*HEADER WORDS AND STORE THEM IN “"WCRC” AND "GCRC” 
3*R1 - REGISTER FOR CRC, 


#*R2 - THIS HAS BIT 
3°R3 - THIS HAS BIT 
3°R4 - THIS HAS BIT 


3*STMPO 
3*STMP2 
3*STMP3 
3*STMP4 
3*STMPS 


3*FETCH 
3*B =D 
3*C = 8 
3*E = B 


TNCREMENTED CRC VALUE IS HERE 


POSITION 2 VALUE C 
POSITIOW 16 I.E. OUTPUT BIT VALUE 8 
POSITION 15 VALUE E 


- WUMBEP OF WORDS 
— WUMBER OF BITS PER WORD = 16 


- TEMPORARY REG. 
- TEMPORARY REG 
- THIS HAS DATA 


DATA FIT D 
KOR 16 
KOR 2 
xXOR 15 


TO TRANSFER CARRY 
BIT VALUE D 


s*ROTATE RIGHT ONF PUSITION 
3*B GOES TO POSITION 1 
3*C GOES TO POSITION 3 
#*E GOES TO POSITION 16 


3*RFEPET 
3*CALL 
3X 

3*Y 


MoV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
MOV 
MOV 
MOV 
MOV 
ROR 
ROR 
BIT 
BEQ 
MOV 
BR 

CLR 
ADD 


BIT 
BEQ 
MOV 
BR 

CLR 


64 TIMES 


JSR RS, @#CRC 


sFIRST LOCATION 


AT 


sPUT CRC IN WCRC FOR READ GCRC FOR WRITE 


RO, -(SP) 
(P5)%,RO0 
R1,-(SP) 
R2,-(SP) 
R3,-(SP) 
R4,-(SP) 

R1 

QPS TMPS 

#4, @8STMPO 
(RO)+,@#S TMP3 
816.,STMP2 
GES TMP3, QPS TMP4S 
Q#STMP3 
@#STMPS 
#BITO,R1 


1$ 
#B1Ti5,P3 
2$ 

RI 
QRSTMPS,R3 
#PITL4,P1 
3$ 
#BITiS,R2 
4s 


R2 


33PUSH RO ON STACK 
sGET POINTER TO CYL AO. 
37PUSH Ri ON STACK 
33PUSH R2 ON STACK 
33PUSH R3 OW STACK 
33PUSH R4 ON STACK 
sCLEAR WUPKING LOCATION 


swOrPD COUNT 

STEMPORARY WOPD STOPAGE 
sPIT COUNT 

STEWPORARY WORD STORAGE 
sCET LS® INTC “C* 

sGET ABOVE “C™ INTO S$TMPS 
#1S POSITION 15 HIGH 
sPRANCH IF POSITICN 16 LOW 
sGET POSITION 16 


CET POSITION 16 

3*OR POSITION 16 WITH D . 
TO GIVE 8 

31S POSITION ? HICH 

ZPRAWCH IF POSITICN 2 LOW 

CET POSITION 2 


3GET POSITION 2 Zi 
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9012 
9013 
9014 
9015 
9016 
9017 
9018 
9019 
9020 
9021 
9022 
9023 
9024 
9025 
9026 
9027 
9028 
9029 
9030 
9031 
9032 
9033 
9034 
9035 
9036 
9037 
9038 
9039 
9040 
9041 
9042 
9043 
9044 
9045 
9046 
9047 
9948 
9049 
9050 
9051 
9052 
9953 
9954 
9055 
9056 
9057 
9058 
9059 
9060 
9061 
9062 
9063 
9064 
9065 
9066 
9067 


044062 


044064 
044070 
044072 
044076 
044100 
044102 


044104 
044110 
044112 
044114 
044116 
044122 
044124 
044130 
044132 
044134 
044140 
044142 
044146 
044150 
044152 
044156 
044160 
044164 
044170 
044172 
044176 
044200 
044202 
044204 
044206 
044210 
044212 
044214 


044216 
044216 
044220 
044222 
044224 
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060302 


032701 
001403 
012704 
000401 
005004 
060304 


006037 
006001 
005703 
100403 
042701 
000402 
052701 
005702 
100403 
042701 
000402 
052701 
005704 
100403 
042701 
000402 
052701 
005337 
001310 
005337 
001275 
010135 
012604 
012603 
012602 
012601 
012600 
000205 


010046 
010146 
010246 
012700 


000002 
100000 


001206 


100000 
100000 


020000 
020000 


000001 


000001 
001202 


001176 


177400 


45: 


582 
652 


SETDSKs 


s*THIS IS A SUBROUTINE TO SET UP THE 
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R3,R2 
#BITiI,R1I 
5$ 
#PIT15,R4 
6$ 

R4 


@tSTur4 
R1 
R3 


18 
#BIT15,R1 
10$ 
#B1T15,R1 
R2 


11$ 
#B81T13,P1 
12$ 


#81T13,81 
R4 


13$ 
#BITO,R1 


R1,@(R5 De 
(SP )*,R4 

(SP)¢,R3 

(SP)¢,R2 

(SP )*,R1 

(SP)¢,RO 

RS 


3%0R B WITH POSITION 2 


270 GIVE C 


31S POSITION 15 HIGH 
#BRANCH IP POSITION 15 LOW 
sGET POSITION 15 


sGET POSITION 15 
sxOR POSITION 15 WITH B 


210 GIVE E 


sGET LSB Iuto “c* 
sGET ABOVE C INTO Ri 


sTEST B 


sBRAWCH IP B=1 
3SET 8 IN POSITION 1 


3SET B IN POSITION 1 


sTESTt Cc 


sPRANCH IF C=1 
sCET C IN POSITION 3 


sCET C IN POSITION 3 


sTEST E 


3PRANCH IF E=1 
3CET E IN POSITION 16 


3GET E IM POSITION 16 


sBIT COUNTEP 


sPRANCH IF 16 WOT DONE 
sWORD COUNTER 

sBRANCH IF 4 NOT DONE 

sPUT CRC WHERE DESIRED 


33POP STACK 


IfYTO R4 


3;POP STACK INTO R3 


33POP STACK 
33PO0P STACK 
33PO0P STACK 


S*CYLINDER O (16 BITS PER wORD) 


s*TPACK 1, SECTOR 1 
3*KEY1 1 
3*KEY? 1 


3*CRC THROUGH THE JSR R5,44CRC 


3*256 WORDS OF 177400 


s*CALL JSR 

MOV RO,-(SP) 
MOV R1,-( SP) 
MOV k2,-(SP) 
MOV #177400,R0 


PC, @#SETOSK 


INTO R2 
IWTO Pl 
INTO RO 


SIMULATOR DISK FOR 


33PUSH RO ON STACK 


37PUSH R1 ON 
33PUSH R2 ON 
sDATA IN THE 


STACK 
STACK 
DISK 


sl 
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9068 
9069 
9070 
9071 
9072 
9073 
9074 
9075 
9076 
9077 
9078 
9079 
9080 
9081 
9082 
9083 
9084 
90es 
9086 
9087 
9062 
9089 
9090 
9091 
9092 
9093 
9094 


044230 
044234 
044240 
044242 
044244 
044746 


044252 


044254 
044256 


044260 
044266 
044274 
044302 
044310 
044316 
044324 
044330 
044332 
044334 
044336 
044340 
04434? 
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012701 
012702 
01002? 
005301 
001375 
012701 


005022 


005301 
001375 


012737 
112737 
112737 
012737 
012737 
013737 
004537 
047200 
051100 
012602 
012601 
012600 
000207 


000400 
051116 


000021 


010000 
000001 
000001 
000001 
000001 
000400 
043742 


047200 
047203 
047202 
047204 
047206 
047260 


1$3 


2S: 


MOV 
MOV 
MoV 
DEC 
BNE 
MOV 


CLR 


DEC 
BNE 
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#256.,R1 
#DISK,R2 
RO, (RP?) 
Ri 

i$ 
#17.,R1 


(R2)¢ 


R1 
2$ 


sCOUNTER 

sSTART OF SIMULATOR DISK 
sMOVE IN DATA 

sCOUNT FOR 256 

sBRANCH IF 256 NOT COMPLETE 
3? ECC WORDS, 1 DATA GAP 
714 TOLERANCE GAP 

sCLEAR ECC,DATA GAP AND 
sTOLERANCE GAP 

sCOUNT 

sBRANCH IF WOT COMPLETE 


3*NOW SET UP FOR DISKLESS USE 


MOV 
MOVB 
MOVs 
MOV 
MOV 
MOV 
JSR 
CYL 
WCRC 
MOV 
MOV 
MOV 
RTS 


#FMT22,A9CYL 
#1, @#SECOTRe1 
#1, @8SECUTR 


#1, A8FEY1 


#1,@@"EY2 
256.,@#DAWORD 


RS, @#CRC 


(SP)*,R? 
(SP)¢,R1 
(SP)¢,R0 
Pc 


sCYLIWOER O (16 BIT WORDS) 
sTRACK=1 

3SECTOR=1 

25121 

sKEY2=1 

3NO. OF DATA WORDS 
260 TO CALCULATE CRC 
ZF IRST CRC WORD 

3PUT CALCULATED CRC 
33POP STACK INTO RZ 
33P0P STACK INTO Ri 
33POP STACK INTO RO 
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9095 
9096 
9097 
9098 
9099 
9100 
9101 
9102 
9103 
9104 
9105 
9106 
9107 
9108 
9109 
9110 
9111 
9112 
9113 
9114 
9115 
9116 
9117 
9118 
9119 
9120 
9121 
9122 
9123 
9124 
9125 
9126 
9127 
9128 
9129 
9130 
9131 
9132 
9133 
9134 
9135 
9136 
9137 
9138 
9139 
9140 
9141 
9142 
9143 
9144 
9145 
9146 
9147 


044344 
044350 
044356 
044362 
044366 


044372 
044374 
044400 
044402 
044406 
044410 
044412 
044416 
044420 
044424 


044430 
044434 


044440 


044446 
044452 


044456 
044462 
044466 
044470 
044474 
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010037 
162737 
004737 
004737 
1044061 


000000 
011037 
012011 
012077 
112046 
105720 
112066 
1057 20 
012677 
012077 


012077 
012037 


012777 


005037 
004737 


004737 
005737 
001034 
005737 
001015 


002014 
000004 
042534 
042570 
062145 
001210 


135244 


000001 


135220 
135202 


135200 
047210 


014000 


002096 
047040 


042140 
002006 


047210 


002014 


135202 


HCCRCF?: 
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s*TRIS TS A SUBROUTINE TO CHECK HEADER COMPARE ERROR 
s*(PRIT #7) AND CRC ERROR (BIT 8) 


s*CALL JSR RO, BRHCCRCE 


CLR 
JSR 


COM 


RO, °EPCISR 
#4, ORPCISR 
PC, @#CLDISK 
PC, @#CHECKT 
@CPHALT 


CRO), @8STMPS 
(RO)*,@R1 
(RO )*,@PHCA 
(R0)*,-(SP) 
CRO)D@ 
(RO)*,1 (SP) 
(ROD 
(SP)¢,aRHDST 
(RO), @RHWC 


(RO) ¢, @RHPA 
(RO), @8X 


3COMMAND-READ HEADER AND DATA 

” “WRITE DATA 

sCYLINDER 

3 SECTOR 

s TRACK 

s¥ORD COUNT 

JRHBA BUFFER START 

s1=2WRITE DATA O=READ 

3H=1 HEADER CHECK, H=0 CRC CHECK 


sSAVE PC OF JSRe4 

sGET PC OF JSR 

sTNIT AWD SETUP GENERAL REC. 
sCHECK THAT DVA,RDY,DPR,DRY = 1 
34ND THAT NO OTHERS = 1. CANNOT CON- 
STINUE TESTING IF BOTH AREN°T TRUE 
sSTOP THE TEST 

3SAVE COMMAND 

3 COMMAND 

sCYLINDER 

sSECTOR 

3UP DATE RO 

s TRACK 

JUPDATE RO 

STRACK SECTOR 

3NO. OF DATA WORDS #4 HEADER 

31F A READ HEADER AND DATA 
SSTARTIWG ADDRESS OF BUFFER 

#%=0 READ HEADER AND DATA 

#X=1 WRITE DATA 


#FMT2Z20ECT,QRHOF 316 BITS PER WORD 


@PERFLGS 
PC, @#COMHD 


3ECC CORRECTION INHIBIT 
SCLEAR ERROR FLAG 
sCOMMAND 


3*IF THE PROGRAM COMES BACK HERE WITHOUT ERROR PR°NTOUTS 
3*FROM THE “COMHD® ROUTINE THAT MEANS SECTOR GAP, 
s*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
s*SYNC BYTE 4AVE GONE BY AND SYNCS WERE CORRECTLY 
3 *DETECTED 
s*HEADER AND DATA ARE TO BE CHECKED. 


JSR 
Tst 
BNE 
TST 
BWE 


PC, @#°UTREG 
@#ERFLGS 
10$ 

aex 

3$ 


sSAVE REGISTERS 

sANY ERRORS ALREADY THERE 
sBRANCH IF YES 

31S THIS A READ 

31F A WRITE DATA BRANCH 
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9149 
9149 
9150 
9151 
9152 
9153 
9154 
9155 
9156 
9157 
9158 
9159 
9160 
9161 
9162 
9163 
9164 
9165 
9166 
9167 
9168 
9169 
9170 
9171 
9172 
9173 
9174 
9175 
9176 
9177 
9178 
9179 
9180 
9181 
9182 
9183 
9134 
91865 
9166 
9187 
9189 
9189 
9190 
9191 
919? 
9193 
9194 
9195 
9196 
9197 
9198 
9199 
9200 
9201 
9202 
9203 


044476 
044502 
044504 
044506 
044510 
044512 
044514 
044516 
044520 
044522 


044524 


044526 
= 


044530, 
044534 
044536 
044540 
044542 
044544 
044546 
044550 
044552 
044554 


044556 
044560 
044562 
044564 
044572 
044574 
044602 


044610 
044612 


004037 
002110 
003154 
000400 
044516 
04452? 
044560 
104004 
000207 
104005 


000207 
000414 


od 


004937 
003154 
051116 
000400 
044550 
044554 
044560 
104004 
000207 
104005 


000207 
005720 
00144? 
022737 
001417 
017737 
022737 


001470 
013737 
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043430 


043430 


000072 


135042 
000200 


001642 


001210 


001126 
001126 


042204 
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1$: 
2$3 


3$3 


4$: 
5S: 


10$: 
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3*NOW TRE READ BUFFER WILL BE CHECKED 

s*HEADER SHOULD BF COMPLETELY READ AS WRITTEN 
3*H0 DATA WORDS SHOULD BE READ 

s*REINTO BUFFER HAS BEEN FILLED WITH 0 

3*WRFROM BUFFER HAS BEEN FILLED WITH EXPECTED DATA 


JSR 
WRFROM 


RTS 
BR 


RO, RECOMP AR 


Pc 
10$ 


sCHECE 

3GOOD DATA 

sTEST BUFFER 

34 HEADER 252 DATA 

SRETURN POINT FOR ERROR HEADER 
sRETURN POINT FOR ERROR DATA 
sRETURN FOR GOCD COMPARISON 
#READ NEXT ERROR 5S 

SRETURN TO COMPARISON SUBROUTINE 
sWORD WO 1 THRU 4 ARE 

sHEADER WORDS AND HENCE 
#SHOULD BE READ AS WRITTEN ON 
2DISK, WORD NOS. 5 ONWARDS 
;SHOULD NOT BE READ AND HENCE 
3READ INTO BUFFER 

3SHOULD BE UNCHANGED 

sRETURN TO COMPARISON 


3JUMP OUT 


3*NOW THE DISK WILL BE CHECKED 

3*NO DATA SHOULD BE WRITTEN 

s*REINTO BUFFER HAS BEEN FILLED WITH EXPECTED DATA 
s*DISK HAS BEEN FILLED WITH 177400 

3*WRFROM HAS BEEN FILLED WITH 125252 


JSR 


REINTO 


DISK 
256. 
4$ 

5$ 
10$ 
ERROR 
RTS 
ERROR 


RTS 
Tst 
BEQ 
CMP 
BEQ 
MOV 
CMP 


BEQ 
MOV 


RO, RECOMPAR 


4 


Pc 
(RO Do 


6$ 

#72, 08S TMPS 

11$ 

@RHER1, @#SBDDAT 


‘PHC, 928SBDDAT 


7$ 
QPRHER] ,@HRECADR 


3CHECK 
3GOOD DATA BUFFER 
sTEST BUFFER 


SRETURN POINT FOR ERROR HEADER 
SPETURN POINT FCR ERROR DATA 
SRETURN POINT FOR GOOD COMPARISON 
SREAD WEXT ERROR 5 
SRETURN TO COMPARYSON SUBROUTINE 
sWORD NO ARE ALL DATA 
sWORDS THE SHOULD NOT 
dHAVE BEEN CHANGED BY THE 
sWRITE COMMAND 
SPETURN TO COMPARTSON SUBROUTINE 
31S THIS A HCRC OW HCE CHECK? 
sBRANCH IF HCRC 
31S THIS A READ COMMAND 
sPRANCH IF VES 

sTEST DATA 
sONLY HEADEP COMPARE BIT? 
sSHOULD BE SET 
sPRAWCH IF GOOD 

sRECISTER ADDRESS RHERL 
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9204 
2205 
9208 
9207 
9702 
9209 
9210 
9211 
921? 
921? 
9214 
9215 
9216 
9217 
9218 
921? 
9220 
9221 
9222 
922? 
9224 
9225 
9226 
9227 
9228 
9229 
9230 
9231 
9232 
9233 
9234 
9235 
9236 
9237 
9239 
9239 
9240 
9241 
924° 
9242 
9244 
9245 
9246 
9247 
9243 
9249 
9250 
9251 
9252 
9252 
9254 
9255 
9756 
9257 
9259 
9259 


044620 
044626 


044630 
044632 
04463? 
044640 


044646 
044650 
044656 
044664 


044666 
044670 
044676 
044700 
044706 
044714 
044716 
044724 
044732 


044734 
044736 


044744 


044752 
044754 
04476? 
044770 


044772 


044774 
044774 
044776 
045000 


045006 
045014 
045022 
045030 
045036 
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012737 
104027 


017737 
022737 


001451 
013737 
012737 
104027 


000441 
022737 
001417 
017737 
022737 
001426 
013737 
012737 
104027 


000416 
017737 


022737 


001407 
012737 
013737 
104027 


000200 


010046 
010146 
013777 


012777 
012777 
012777 
052777 
012777 


000290 


175094 
100200 


091642 
100200 


00007? 


134736 
000400 


001642 
000400 


134700 
100400 


100400 
001642 


002064 


177766 
002110 
000010 
000010 
010000 


CONTROLLER TsT-?7T 1 
CPS GERFRATIUN POUTINE 


001124 


0011 2¢ 
001126 


642204 
001124 


001210 


001126 
001126 


042204 
001124 


001126 
001126 


001124 
042704 


134632 


134616 
134612 
134614 
134€00 
134604 


115: 


6$: 


752 


MIDDLF;. 


“ov 
ERROR 


Be 


“ov 
cvp 


BFQ 
“cv 
MoV 
ERROR 


Be 
cue 
BFQ 
MOV 
cop 
BEQ 
MoV 
MOV 
ERROR 


BR 
MOV 


cP 
BEG 
MV 


MOV 
ERROR 


RTS 
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SMCE, AeesDLAT 3covo Data 

27 SaFTES ON EPROR ON THE 
sHEROFR GHLY PCE SHTULD 

7$ sPe SET 


GPHFRI,@sSaDVAT ZTEST OATA 
SDCFIYCE, PHSBDDAT ZONLY HEATER CC¥PARE PIT? 
sSHOULD BE SET 
s0C® 15 SET BECAUSE ECC IS NuT EAD 


7$ s®RANCH Tf" GCND 

QPRHERL,BEREGADP ZREGISTER BRODRESS PHERL 

DCF MCE, @HSGODAT 36000 DATA 

27 SAFTER AN ERROR OW THE 
sMERDER OWLY HCE SHOULD 

7$ sPE SET 

872, A8STMPS 31S THIS A READ COMMAND? 

12$ SPRANCH IF A PEAD 


@PHERI,2SSBDDAT 3TEST DATA 
— sONLY CRC ERROR SHOULD SE THERE 
s 


QERHER1, Q@RFGADR 7REG. ADDR = RHER] 
#HCRC,ASSGDDAT 36000 DATA 


27 ZAFTER A CRO ERROP ONLY CRC 
sSHOULD BE SET 
78 sPRANCH OUT 


@RHER1L, @HSBDDAT ;TEST DATA 


#OCKIHCRC, @RSRDDATZHCRC AND DCK SHOULD BE SET 

;D0CK 1S SFT BECAUSE ECC IS NOT READ 
7$ sBRANCH IF GOOD 
#DCKIHCRC,@#SCODAT;GOND DATA 
Q@#RHERL, @#REGADRZFAILING REGISTER RHERIL 
27 sPFTER A CRC ERRCR CW A READ 

30CF AND HCRC SHOULD RE SET 

3D0CK TS SET BECAUSE ECC IS NOT READ 
RO sPETURN TO “MAIN TEST 


s*THIS TS A SUBROUTINE TO LEAVE AT THE “MIDDLE OF 
s*A WRITE HEADER AND DATA COMMAND 

s*IT TRYS TO GET SECTOR 10, TRACK 0, CYLINDER 0 
3*BUT COMES OUT AFTER ONE SECTOP 

3*THE COMMAND OS JS? PC, @#MIDDLE 

s*BAI IS SET 


MOV 
MOV 
MOV 


MOV 
MOV 
MOV 
81S 
MOV 


RO,-(SP) 33PUS# RO ON STACK 
R1,-(SP) 3;PUSH R1 ON STACK 
@@WPIFOR,@RHCS] ;WRITF HEADER AND DATA=62 
3IN RHCS1 
#-10., @RHWC 310 WORDS 
#WRFROM, @RHSA 3PUS ADDRESS=WRFRCM 
#10, @2HOST sDESIPED TRACF=0 SECTOR=10 
#BAT,ARHCS2 ZBUS ADDRESS INCREMENT TNHIRIT 


#FMT29,@RHOF sFORMAT 16 BIT WORDS 





a a a a fA Uk UA UML UM 
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DZRIGA.P11 29-MAR-76 00:00 CRC GENERATION ROUTINE J 
9260 045044 005077 134602 CLR @PHCA sCYLINDER=0 
9261 045050 012737 000001 045076 MOV #1,@e¥1D SECTOR IS SET TO 1 SO THAT ( 
926? 3WE CAN GET OUT AT THE 
9263 ;¥IDOLE OF AN OPERATION 
9264 #LOOKING FOR SECTOR 10 J 
9265 045056 012777 000001 134574 MOV #0MD, ARHMR #SET DIAGNOSTIC MODE 
9266 045064 052777 000001 134546 BIS #GO0, @RHCS1 360 TO RHCS1 WITH 62 
9267 045072 004137 053246 JSR R1,@@SEARCH ( 
9268 045076 000000 MID: -woRD 0 3SECTOR 
9269 045100 012601 MOV (SP)¢,R1 33POP STACK INTO P1 
9270 045102 012600 MoV (SP)*,RO 33POP STACK IRTO PRO ( 
9271 045104 000207 RTS PC 
9272 
9273 J 
9274 
9275 eS8STTL JAM CURRENT CYLINDER ROUTINE 
9276 i 
9277 
9278 3*THIS SUBROUTINE WILL CHANGE THE CURRENT CYLINDER REGISTER 
9279 3*THIS IS DONE BY GIVING A SEEK COMMAND THEN AN INIT 4 
9200 s*WHICH WILL LOAD THE CURRENT CYLINDER WITH THE DESIRED CYLINDER VALUE 

281 3* 

9282 3*CALL IS 4 
928? 3*JSR RO, @EMAKECYL 
9284 3*xXC sDESTPED VALUF OF CURRENT CYLINDER 
9285 ( 
9286 
9787 045106 MAKECYL: 
9288 045106 010546 MOV RS,-(SP) 33PUSH RS OW STACK J 
9289 045110 010037 002014 MOV RO, RBPCISP 3PC OF JSRe4 
9290 045114 162737 000004 002014 suB #4, 4PCISR 3SAVE PC OF JSR 
9291 045122 012005 MOV (RO) +,RS 3CETTING READY TCO FILL DESIRED CYLIWDER ( 
9292 045124 010577 134522 MOV RS, @RHCA PILL DESTRED CYLINDER REGISTER 
9293 045130 005077 134510 cLR @RHOST 3MARKE SURE DESIRED SECTOR TRACK IS WOT ILLEGAL 
9294 045134 013777 002072 134476 MOV @PSEECOM,@RHCSi 3FILL SEEK COMMAND ( 
9295 045142 012777 000001 134510 MOV #DMD, @RHMR 3SET DIAGNOSTIC MODE 
9296 045150 052777 000001 134462 BIS #GO, @RHCS1 360 TO SEEK 
9297 045156 000240 NoP PALLOW TIME FOR SEEK TO HANG UP ( 
9298 045160 000240 nop ALLOW TIME FOR SEEK TO HANG UP 
9299 045162 000240 nop ALLOW TIME FOR SEEK TO HANG UP 
3300 045164 000240 nop ALLOW TIME FOR SFEK TO HANG UP ( 
9301 045166 004737 042534 JSR PC, RACLOISK #CIVE INIT 
9302 045172 017737 134500 001126 MOV @PHCC,A*SPUDAT ;TEST DATA 
9303 045200 020537 001126 cwP RS, @8SBDDAT 3COVPARE CURRENT CYLINDER ( 
9304 045204 001406 BEQ 18 3PRAWCH IF GOOD 
9305 0452706 010537 001124 “ov RS, R@SGDDAT 3CGOOD VALUE OF RHCC 
9306 045212 013737 001676 042204 “ov Q@ERHCC,29REGADR ZFAILING REGISTER ADDRESS ( 
9307 045220 104030 ERROR 30 3CURRFNT CYLINDER DOES NOT MATCH DESIRED CYLINDER 
9308 REGISTER AFTER A SEEK AND AW INIT 
9209 045222 1$: ( 
9310 045222 012605 MOV (SP)*,R5 33POP STACK INTO PS 
9311 045224 000200 RTS kO 
9312 ( 
9313 
9314 eSBTTL ECC GENERATION AND COWPARTSON ROUTINE 


9315 ( 





J 
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DZRIGA.P1L 29-MAR-76 00:00 ECC GEWERATION AND COMPARISON ROUTIWE ( 
9316 
9317 ( 
9318 
9319 3*THIS SUBROUTINE GENERATES AWD TESTS ECC 
9320 3*CALL JSR PC,ECTEST ( 
9321 
9322 
9323 ( 
9324 
9325 
9326 100000 Plél =100000 ( 
9327 040000 PIE2 =40000 
9328 020000 PIs3 =20000 
9329 010000 PIE4 =10000 ( 
9330 004000 PIES =4000 
9331 002000 PIE6 =2000 
933? 001000 PIE? =1000 ( 
9333 000400 PIE® =400 
9334 000200 PIE9 =200 
9335 000100 PIELO 2100 ( 
9236 000040 PIE11 =40 
9337 000020 PIE12 =20 
9338 000010 PIz13. =10 ( 
9339 000004 PIEL4 =4 
9340 000002 PIE15 =? 
9341 000001 PIEI6 =1 ( 
9342 100000 PIZE17 <=100000 
9343 040000 PIE18 =40000 
9244 020000 PIE19 =20000 ( 
9345 010000 PIE20 =10000 
9346 004000 PIE21  =4000 
9347 002000 PIE22 =2000 ( 
9348 001000 PIE23 =1000 
9349 000400 PIE24 =400 
9350 000200 PIE25 <=200 ( 
9351 000100 PIE26 =100 
935? 000040 PIE27 220 
9353 000020 PIE2@ =20 ( 
9354 000010 PTE29 = =10 
9355 000004 PIE30 24 
9356 000002 PIE%1 =? ( 
9357 000001 PIE32. 21 
9358 
9359 045226 000000 ECDATA: 0 3DATA BIT FOR ECC ( 
9260 31F ALL OWES THEN CURRENT BIT IS A OWE 
9361 31F ZERO THEN CURREWT BIT IS A ZERO ( 
9362 
9363 045230 000000 GECC1l: 0 3LOW ORDER ECC WORD TO SE GENERATED HERE 
9364 3=R1 
9365 ( 
9366 045232 000000 GECC2: 0 ZHIGH ORDER ECC WORD TO BE GENERATED HERE 
9367 3=R2 
9368 ( 
9369 045234 000000 TSECCG: 0 31F =177777 GENERATE AND TEST ECC FOR THIS BIT 
9370 71F =0 DO NOT GENERATE AND TEST ECC FOR TRIS BIT 


9371 Cc? ( 
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DZRIGA.P11 29-MAR-76 00:00 ECC GENERATION AND COMPARISON ROUTINE 

9372 045236 113713 WCODE: 38859. 3N-CODE WORD 

9373 045240 000000 NCOUNT: 0 STEMPORARY W CODE 

9374 045242 000000 POSITI: 0 sPOSITION REGISTER 

9375 045244 010041 HARDER: 4129. SHARD ERROR COURT 

9376 sTRUE COUNT IS 4128 BUT AS COMPARES APE 

9377 SDONE OWE STAGE LATER SO 4129 

9378 045746 000000 DATENV: 0 SDATA ENVELOPE FOR TYPE OUT 

9379 3MAK FOR WRITE TS 4096 

9380 sMAK FOR PEAD IS 4128 

9381 045250 000000 ZCODE: 0 SLEADING ZEROS ENVELOPE FOR TYPE OUT 

9382 sTHIS IS SHUT OFF WHEN POSITION COUNTER 

9383 318 EWABLED 

9384 sMAX COUNT ITS 38859 

9385 

9366 

9367 

9388 045252 000000 HADTMP: 0 STEMPORARY HARD ERROR COUNT 

9389 045254 000000 P33 0 

9390 045256 000000 P12: 0 

9391 045260 000000 P22: 0 

9392 045262 000000 P24: 0 

9393 

9394 

9395 

9396 

9397 

9398 045264 ECTEST: 

9399 045264 010046 MOV RO,-(SP) 33PUSH RO ON STACK 

9400 045266 010146 MOV R1,-(SP) 33PUSRH R1 ON STACK 

9401 045270 010246 MOV R2,-(SP) 33PUSH R2 ON STACK 

9402 045272 010346 MOV R3,-(SP) 33PUSH R3 ON STACF 

9403 045274 010446 MOV R4,-(SP) 33PUSH R4 OW STACK 

9404 045276 010546 MOV R5,-(SP) 33PUSH RS ON STACK 

9405 045300 013701 045230 MOV @#CECC1,k1 sECC1 wORD 

9406 045304 013702 045232 MOV @#GECC2,R2 s€CC2 wORD 

9407 045310 005737 045226 TST @#ECDATA 3TS CURRENT BIT A ONE 

— 045314 001406 BEQ 2$ sRRANCH IF CURRENT DATA D=0 

9 

9410 3*IF CARRY IS NOT ZERO THEN D=1 

oa s*INVERT X32 TO GIVE RO 

9413 045316 010103 1S: MoV R1,°3 

9414 045320 052703 177776 BIS e*CPIE32,R3 

9415 045324 005103 COM R3 

9416 045326 010300 MOV R3,P0 

9417 045330 000404 BR 3$ 

9418 

9419 s*IF CARRY IS ZERO THEN D=0 

9420 3*X32 BECOMES RO 

9421 045332 010103 2$3 MOV R1,P3 

9422 045334 042703 177776 BIC @°CPIE32,R3 

eae 045340 010300 MOV R3,F0 

9425 045342 000241 3$3 cuc 

2426 045344 006000 ROR RO 

9427 045346 006000 ROR kO 


Q2 
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9428 
9429 
9430 
9431 
9432 
9433 
9434 
9435 
9436 
9437 
9438 
9439 
9440 
9441 
9442 
9443 
9444 
9445 
9446 
9447 
9448 
9449 
9450 
9451 
9452 
9453 
9454 
9455 
9456 
9457 
9458 
9459 
9460 
9461 
9462 
9463 
9464 
9465 
9466 
9467 
9468 
9469 
9470 
9471 
9472 
9473 
9474 
9475 
9476 
9477 
9478 
9479 
9480 
9461 
9482 
9483 


045350 
045352 


045354 
045356 
045362 
045364 
045370 


045374 
045376 
045402 
045404 
045410 


045414 
045416 
045422 
045424 
045430 


045434 
045436 
045442 
045444 
045450 


045454 
045456 
045460 
045464 
045470 
045474 


045476 
045500 
045504 
045510 
045514 
045516 


29-MAR-76 00:00 


005700 
001462 


010203 
052703 
005103 
010337 
006237 


010203 
052703 
005103 
010337 
006237 


010103 
052703 
005103 
010337 
006237 


010103 
052703 
005103 
010337 
006237 


006002 
006001 
053700 
053700 
042702 
050002 


005000 
053700 
053700 
042701 
050001 
000404 


137777 


045254 
045254 


177737 


045256 
045256 


173777 


045260 
045260 


176777 


045262 
045262 


045254 
045256 
120020 


045260 
045262 
002400 
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ECC GENERATION AND COMPARISON ROUTIWE 


Tst RO 

BEQ 10$ sBRANCH IPF RO=0 
S*INVERT X2 

“ov R2,R3 

BIS e°CPIE2,R3 

CON R3 

“ov R3, @#P3 

ASR @FP3 


s* INVERT Kil 


nov 
BIS 
COM 
mov 
ASR 


R2,R3 
#°CPIE11,R3 
R3 


R3,@8P12 
e#P12 


s* INVERT X21 


R1,R3 
eCPIE21,®3 


s* INVERT X23 


Mov 
BIS 
COM 
MoV 
ASR 


R1,R3 
#°CPIE23,R3 
R3 

R3, @#P24 
@eP24 


3*NOW THAT RO FOR POSITION 1 


F3 FOR POSITION 3 
P12 FOR POSITION 12 
P22 FOP POSITION 22 
P24 FOR POSITION 24 


d*ARE KNOWN THE ROTATE WILL BE DONE AND 
s*THESE BITS JAMED IW 


ROR 
ROR 
BIS 
BIS 
BIC 
BIS 


CLR 
BIS 
BIS 
BIC 
BIS 
BR 


R2 

R1 

@#P3,R0 

@#P12,R0 
#PIELIPIESIPIE12,°2 
RO,R2 


RO 

@#P22,R0 
@#P24,R0 
#PLE220PLE24,R1 
RO,P1 

12$ 


¢2 
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DZRIGA.P11  29-MAR-76 00:00 ECC GENERATION AND COMPARTSON ROUTINE 
9434 
948 3*THE PROGRAM COMFS HERE TF RO=0 
2486 3*SO AFTER ROTATE RO GETS PUT INTO POSITION 1 
43 
9488 045520 006002 10$: ROR R2 
9489 045522 006001 ROR R1 
9490 045524 042702 100000 BIC #P1E1,R2 
9491 045530 010137 045230 125: MOV R1,@8CECC1 pSAVE ECC1 
9492 045534 010237 045232 MOV R2, @8GECC2 3SAVE ECC2 
9493 045540 005737 045234 TST ee#TSECCC 31S HARDWARE TO BE CHECKED 
9434 31F =1777777 TEST HARDWARE 
9495 31® = 0 DO NOT TEST HARDWARE 
9496 045544 001432 BEQ 145 3BRANCH IF HARDWARE NOT TO BE CHECKED P 
9498 | 
9499 - $@CHECK HARDWARE 
9500 045546 032777 000400 133364 BIT #SW8, asun 31S SWITCH ® SET < 
9501 045554 001005 BNE 15$ 3BRANCH IF Sw® IS SET 
9502 045556 0632777 000100 133354 BIT #Su6,eSWR 31S SWITCH 6 SET 
9503 045564 001401 BEQ 15$ 3BRAWCH IF SW6 IS NOT SET < 
9504 045566 000421 BR 145 31F SWITCH @ IS NOT SET AND 
9505 sSWITCH 6 IS SET THEM 
9506 300 NOT DO COMPARES <q 
9507 045570 010146 15$: MOV R1,-(SP) 3GOOD PATTEPN REGISTER 
9508 045572 042716 174000 BIC #174000,(SP) 3GET OWLY PATTERN BITS 
9509 045576 022677 134070 cvP (SP)*,@RHEC2  j3COMPARE PATTERN REGISTER < 
9510 045602 001404 BEQ i3s * 3PRANCH IF GOOD 
9511 3*TO SAVE TIME 
9512 045604 004737 042140 JSR PC, @EPUTRFG 3SAVE REGISTERS q 
9513 045610 104035 ERROR 35 pPATTERW REGISTER IW 11 BITS IN ERROR 
9514 045612 000407 BP 145 sRRANCH OUT 
9515 045614 023777 045242 134046 13S:  cwe Q#POSITI,@RHECL ;COMPARE POTSTION REGISTER q 
9516 045622 001403 BEQ 14$ ;@RANCH IF GOOD 
9517 3*TO SAVE TIME 
9518 045624 004737 042140 JSR PC, 9$PUTREG 3SAVE REGISTERS q 
9519 045630 104035 ERROR 35 3POSITION REGISTER IN ERROR 
9520 3"DATA ENVLOP® GIVES NUMBER OF CLOCK 
9521 SPULSES FROM BEGINING OF COMMAND < 
9522 #THAT IS THE CLOCKS IN THE R/W DATA FIELD ENVELOPE 
3 
9524 3IN A WRITE THERE ARE 10000 OCTAL cLocKs « 
9525 31N A READ THERE ARE 10040 OCTAL CLOCKS 
9526 ; 
9527 3 q 
9528 3"N-CODE ZEROS" GIVE THE NUMBER OF CLOCKS 
9529 3 GIVEN FOR THE LEADING ZEROS FIELD 
9530 3¥AX COUNT IS 113713 OCTAL q 
9531 : 
9=32 3"GOOD POSITION” GIVES KUMBER OF CLOCKS 
9533 3GIVEN AFTE® LEADING ZEROS WHICH IS FOR THE DATA q 
9534 3FLELD 
9535 3¥AX COUNT TS 10040 OR 10041 OcTaL | 
9536 q 
9537 
9538 04563? 145: 
9539 045632 012605 MOV (SP)+,RE 33POP STACK INTO RS F2 q 
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9540 
9541 
9542 
9543 
9544 
9545 


045634 
045636 
045640 
045642 
045644 
045646 


29-MAR-76 00:09 


012604 
012603 
012602 
012601 
012600 
000207 
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ECC GENERATION AND COMPARTSON ROUTINE 


MOV 
MoV 
MOV 
MOV 
MoV 
RTS 


(SP)¢,R4 
(SP )4¢,R3 
(SP)e,R2 
(SP)¢,R1 
(SP )¢,R0 
pc 


33POP STACK INTO R4 
33POP STACK INTO R3 
33POP STACK INTO R2 
33POP STACK INTO .P1 
33POP STACK INTO PO 
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9546 
9547 
9548 
9549 
9550 
9551 
955? 
9553 
9554 
9555 
9556 
9557 
9558 
9559 
9560 
9561 
9562 
9563 
9564 
9565 
95646 
9567 
9568 
9569 
9570 
9571 
9572 
9573 
9574 
9575 
9576 
9577 
9578 
9579 
9580 
9581 
9562 
9583 
9584 
9565 
9586 
9587 
9589 
9589 
9590 
9591 
959? 
9593 
9594 
9595 
9596 
9597 
9598 
9599 
9600 
9601 


045650 


045652 
045656 
045664 
045670 
045672 
045676 
045702 


045706 
045712 
045714 
045720 
045722 
045724 
045730 


045732 
045736 
045744 
045746 


045754 
045756 
045762 


045764 
045770 


045772 
045776 
046002 
046006 


046010 
046014 
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010037 - 


162737 
012037 
010146 
013701 
012711 
005037 


005737 
001007 
005337 
001001 
000403 
005237 
000420 


005237 
023737 
103012 
023737 


001415 
032711 
001016 


004737 
104034 


052711 
042711 
004737 
000737 


052711 
042711 


002014 
000004 
045650 
001660 


000001 
045226 


045242 


045240 


045250 


045242 


045650 


045252 


000400 


042140 


000092 


000002 
045264 


000002 
000002 
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ECC GENERATION AND COPPAKTSON ROUTIFE 


s*THIS SUBROUTINE WILL CONTROL THE SCC CENERATION ROUTINE 


s*FOR ERROR CORRECTION PROCESS 


F*CALL JSR, PC, @RECORR 
xP SEXPECTED POSITION RECISTER WHEN CORRECTION IS COMPLETE 


3? 


ERPOS: 


002014 


045242 
045242 


5$: 


sPOSITION REG. WHEN CORRECTION IS COMPLETE 


MOV RO, @aPCISR sSAVE PC NF JSR @ 4 
SUB #4, B#PCISR sSAVE PC OF JSR 
wav (PO)*,@@ERPOS  ;CET POSITION REG. WHEN CORRECTION IS COMPLETE 
MOV R1,-(SP) 33PUSH R1 ON STACK 
MoV @BRHMR,R1 PMATMTEWANCE REGISTER 
MOV #0MD, @R1 sSET DIAGNOSTIC MODE RIT 
CLR esecDATaA sECC DATA IS ZERO 
Tst esPOsIti 31S SOFTWARE POSITION WON ZERO 
BNE 2s SPRANCH IF W-CODE S COMPLETE 
DEC e#NCOUNT SDECREMENT W-CODE 
BWE 6$ SBRANCH IF N-CODE IS NOT COMPLETE 
BR 2s SPRANCH AS N-CODE IS COMPLETE 
Inc @#ZCODE STUCREMENT CLOCKS GIVEN FOR LEADING ZEROS 
BR 3 sPRAWCH AS W-CODE IS WOT COMPLETE 
3CO TO GIVE CLOCK AND TEST ECC 
Iwc e#POSITI STNCREMENT SOFTWARE POSITION 
cvp @FERPOS, @#POSITIZHAVE ENOUGH CLOCKS BEEN GIVEN TC DETECT ERRCP 
BHIS 3$ sBRANCH IP “ORE CLOCKS TO BE CIVEN 
cP @SHADTMP, @SPOSITIZHAVE EMOUCH CLOCKS SEEN GIVEN FOR HARD ERROR 
sTHAT IS HAVE 4128 MORE CLOCKS BEEN GIVEN 
BEQ 58 2688Raucu IF YES 
BIT #ZER, @R1 sCHECK ZERO DETECT BIT IN REMR 
BNE 4s JPRANCH IS ZER SET 
3*TO SAVE TIME 
JSR PC, RSPUTREG SSAVE REGISTERS 
‘ERROR 34 sZERO DETECT BIT NOT HIGH 
sWHEN 21 PITS IW ECC 32 BIT REGISTER TS 0 
BIS @MCLK, @P1 sSET CLOCe 
BIC #¥CLK, 91 sCLEAR CLOC® 
JSR PC, ®9@ECTEST 3CO TO GENERATE AWD TEST ECC 
BR 1s sCONTINUE 


s*THIS FXTRA CLOCK IS TO BRING FCH HICH 
s*APTER THIS CLOCK POSITION REGISTER MAY FE 10040 OR 10041 OCTAL 


BIS aMCLK, @R1 
BIC #¥CLK,@R1 


sSET CLOCK 
sCLEAR CLOCK 


2 


» 
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DZRIGA.P11 29-MAR-76 00:00 ECC GEWERATION AND COMPARTSON ROUTINE 
9602 046020 45: 
9603 046020 012601 MoV (SP )e,R1 33POP STACK INTO R1 
9604 046022 000200 RTS RO 
9605 
9606 
9607 
9608 
9609 
9610 
9611 s*THIS SUPROUTIWE GENERATES THE ECC FOR WHAT IS ON DISK AND IWSERTS THEM 
961? 3*ON LOCATIONS “DISKe1000" AND “DIS*+1002" 
9613 
9614 
9615 
9616 046024 PILLEC: 
9617 046024 010046 . MOV RO,-( SP) 33PUSH RO ON STACF 
9618 046026 010146 MOV R1,-(SP) 33PUSH R1 OW STACK 
9619 046030 010246 MoV R2,-(SP) 33PUSH R2 ON STACK 
9620 046032 010346 MoV R3,-( SP) 33PUSH R3 ON STACK 
9621 046034 010446 MOV R4,-(SP) 33PUSH R4 ON STACK 
9622 046036 010546 MOV R5,-(SP) 33PUSH RS ON STACK 
9623 046040 005037 045242 CLR @ePOSITI sCLEAR POSITION 
9624 046044 005037 045230 CLR @*#GECCi sCLEAP GECC1 
9625 046050 005037 045232 CLR @#GECC2 sCLEAP . 
9626 046054 012701 051116 MoV eDISK,R1 sPOINTER TO DATA FOR ECC CENERATICN 
9627 046060 012702 000400 MOV #256.,R2 sCOUNTER FOR WUMBER OF DATA WORDS 
9628 046064 012703 000020 9$3 MOV #16.,P3 sCOUNTER FOR WUMBER OF BITS PER wCRD 
9629 046070 012104 MoV (R1)e,R4 sDATA IW R4 
9630 046072 006004 10$: ROR k4 sCET OWE DATA BIT IN CARRY 
9631 046074 103004 BCC 11$ sBRANCH IF DATA BIT IS ZERO 
9632 046076 012737 177777 045226 MOV #-1, @8ECDATA 3ECC DATA BIT IS A ONE 
9633 046104 000402 BP 12$ sBRANCH TO CEWERATE ECC 
9634 046106 005037 045226 11S: CLR @SECDATA 3FCC DATA BIT IS A ZERO 
9635 046112 004737 045264 12$: JSR PC, @#ECTEST 3G0 TO CENEPATE ECC 
9636 046116 005303 DEC k3 SDECREMENT SIT COUNT 
9637 046120 001364 BWE 10$ SRPRANCH IF 16 BITS NOT DONE 
9638 046122 005302 DEC R2 sDECREMENT WORD COUNT 
9639 046124 001357 BNE 9$ SBRANCH IF 256 WORDS NOT DONE 
9640 046126 013737 045730 052116 MOV @FGECC1, @PDISK*<256.*%2?>31NSERT ECC] OW DISK 
9641 046134 013737 045232 052120 MoV @PGECC2, BEDI SKe<257.*%2>;3 INSERT ECC2 ON DISK 
9642 046142 012605 MOV (SP)¢,RS 33P0P STACK INTO RS 
9643 046144 012604 MOV (SP )*,R4 33POP STACK INTO R4 
9644 046146 012603 MoV (SP)e¢,R3 33P0P STACK INTO P3 
9645 046150 012602 MOV (SP)¢,R2 37POP STACK INTO R2 
9646 046152 012601 MOV (SP )¢,R1 33P0P STACK INTO R1 
9647 046154 012600 “ov (SP) 4,20 33PO0P STACK INTO RO 
9648 046156 000207 RTS pc 
9649 
9650 
9651 
9652 
9653 
— SBTTFL RH BASE ADDRESS CHANGE POUTINE 
655 
9656 #** THIS @OUTINE WILL ALLOW THE CHANGE OF THE BASE I? 
9657 ce ADDRESS FROY 176700 TO ANY TYPED VALUE 
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9658 
9659 
9660 
9661 
9662 
9663 
9664 
9665 
9666 
9667 
9668 
9669 
9670 
9671 
9672 
9673 
9674 
9675 
9676 
9677 
9678 
9679 
9680 
96861 
9682 
9683 
9684 
9685 
9686 
9687 
96898 
9689 
9690 
9691 
969? 
9693 
9694 
9695 
9696 
9697 
9698 
9699 
9700 
9701 
9702 
9703 
9704 
2705 
9706 
9707 
9708 
9769 
9710 
9711 
971? 
9713 


046160 
046160 
046164 


046240 
046240 
046244 
046246 
046252 


046326 
046326 
046332 
046334 
046340 
046344 
046350 
046352 
046354 
046356 
046362 


046422 
046422 
046426 
046430 
046434 


046534 
046534 
046536 
046542 
046546 


046554 
046554 
046560 


046624 
046624 
046630 


046666 
046666 
046672 
046674 
046700 


046736 
046736 
046742 
046744 
046750 


047006 


29-MAR-76 00:00 


104401 
000425 


013746 
104402 
104401 
000425 


004737 
104412 
012700 
012701 
042710 
051620 
005301 
001373 
104401 
000417 


013746 
104402 
104401 
000437 


104412 
012637 
104401 
000402 


104401 
000421 


104401 
000416 


013746 
104402 
104401 
000416 


013746 
104402 
104401 
000416 


046166 


001640 
046254 


054672 


001630 
000024 
177700 


046364 


001626 
046436 


001626 
046550 


046562 


046632 


001640 
046702 


001626 
046752 


BASECHs 
226552 
64S: 


3367S: 
66S: 


152 


226952 
68$: 


237152 
705: 


22735: 


725: 


227552 
7452 


3377$% 
16$: 


227952 
78$: 


228152 
80S: 


TYPE 
BR 
eASCIZ 


“ov 
tveoc 
TYPE 


MACY11 30(1046) O8-DEC-77 13:57 PAGE 220 
CHANGE ROUTINE 


765$ sSTYPE ASCIZ STRING 
64$ 339GET OVER THE ASCIZ 
<15><12>/PRESENT BASE ADDRESS OF REGISTERS IS / 


QFRHCS1,-(SP) jCET READY TO TYPE OLD BASE 
267$ s3TYPE ASCIZ STRING 


66$ 33GET OVER THE ASCIZ 
<15><12>/TYPE WEW BASE ADDRESS FOLLOWED BY “°CR° / 


PC, OES TKINT SIMITIALIZE THE TTY KEYBOARD 

#RHDB, RO SGET STARTING ADORESS OF REGISTERS 
#20.,R1 SNOMBER OF REGISTERS 

#°C77,(RO) sCLEAR OLD PASE 

(SP), (RODe sSET NEW BASE 

R1 scouNT 

1$ sBRANCH IF 20 NOT DONE 

7269S s3TYPE ASCIZ STRING . 


68$ 33GET OVER THE ASCIZ 
<€15>¢€12>/PRESENT VECTOR ADDRESS IS / 


@#RPVEC,-(SP) sGET PEADY TO TYPE OLD VECTOR ADDRESS 
271s SSTYPE ASCIZ STRING 


70$ 33GET OVER THE ASCIZ 
<€15><€12>/TYPE NEW VECTOR ADDRESS OR RETYPE OLD OBE FOLLOWED BY “CR® / 


(SP)¢, @8RPVEC sSETUP VECTOR ADDRESS 


213$ S3TYPE ASCIZ STRING 
7285 33CET OVER THE ASCIZ 
<€15><12>/ / 
275s 33 TYPE ASCIZ STING 
74$ 33GET OVER THE ASCIZ 
<€15>€12>/RESTART PROGRAM FROM 200 GR 210/ 
2778 s3TYPE ASCIZ STRING 
16$ 33GET OVER THE ASCIZ 
€15>¢€12>/NEW BASE WILL REMAIN = / 
@#RHCS1,-(SP) 
2719S sSTYPE ASCIZ STRING 
78$ 33GET OVER THE ASCIZ 
€15><€12>/NEW VECTOR WILL REMAIN - / 
@#RPVEC,-(SP) 
81S s3TYPE ASCI7 STRING 
80$ 33GET OVER THE ASCIZ 


€15>¢12>/UNTIL PROGRAY TS RELOADED/ 


~ 
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OZRIGA.P11 29-MAR-76 00:00 RH BASE ADDRESS CHARGE ROUTINE 

9714 047006 000000 HALT 

9715 

9716 

9717 

9718 

9719 

9720 s*THIS TS A LITTLE ROUTINE THAT TESTS NED BIT 11 TH RACS2 

9721 s*THIS LOOPS HERE FOR EVER 

9722 3*TO BE USED ONLY IF DRIVES PRESENT LOOKING AT NED DUES MOT ACREE 

9723 s*@ITH WHAT IS REALY THERE 

9724 047010 000000 ERUNIT: 0 SUNTT UNDER MANUAL TEST 

9725 047012 004737 042534 ERSTART: JSR PC, RECLDISK sSET GENEPAL REG. 

9726 047016 013712 047010 MOV Q#ERUNIT, OR2 sSELECT UNIT 

9727 047022 005714 1$% Ttst @R4 sTEST RHERI 

9728 047024 032712 010000 BIT @NED,@R2 sTEST WED 

9729 047030 001401 BEQ 2$ sBRAUCH IF GOOD 

9730 047032 000773 BR is sNED ROT SET 


9731 047034 000772 2$3 BR 1s sWED SET 
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OZRIGA-P11 29=MAR-76 00:00 RH BASE ADDRESS CHANGE ROUTINE 
9732 
9733 eSBTTL DISK SIMULATION 
9734 FP TAAARAARHAAAAAAARARAREAARAARAAAARERHAARAEKRARAAARAAAREKAAAARASAAATEee 
9735 FF AAAAAAAA AAAS RAAAARAAAAAAAAAAAARAAAERARARAAARERHARAAAAAHARAHEAAEE 
9736 3*IN A WRITE HEADER AWD DATA COMMAND FILL THE FOLLOWING 
9737 s*WUCLY=WITH CYLINDER TO BE OW DISK 
9738 s*WSECTR=WITH SECTOR AND TRACK TO BE OW DISK 
9739 s*@KEVYI= WITH KEY1 TO BE OW DISK 
9740 s*WKEY2= WITH KEY2 TO BE ON DISK 
9741 3*FNWORD= NO OF DATA WORDS TO BE WRITTEN OW DISK 
974? 3*THE COMMAND THEN IS JSR PC, COMBHD 
9743 2* 
9744 3* 
9745 *§F 
9746 3* 
9747 3*IWN A WRITE DATA COMMAND FILL THE FOLLOWING 
9748 s*CYL=WITH CYLINDER TO BE FOUND OW DISK 
9749 s*SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK 
9750 s*KEVi= WITH KEY1 TO BE FOUND OW DISK 
9751 s*KEY2= WITH KEY2 TO BE FOUND OW DISK 
9752 3*X= 1 MUST BE ONE 
9753 3*NOWORD= WITH NUMBER OF DATA WORDS TO BE WRITTEN 
9754 3*THE COMMAND THEN IS JSR PC,COMHD 
9755 p* 
9756 3* 
9757 oe 
9758 3* 
9759 3* 
9760 39* 
9761 3*IN A READ HEADER AND DATA COMMAWD FYLL THE FOLLOWING 
9762 3*CYL= WITH CYLINDEP TO BE FOUND ON DISK 
9763 3*SECOTR= WITH SECTOR AND TPACK TO BE FOUND OW DISK 
9764 s*KEY1= WITH KEY1 TO BE FOUND OW DISK 
9765 Z*KEVY2=WITH KEY2 TO BE FOUND OW DISK 
9766 s*DAWORD= WITH NUMBER OF WORDS TO BE FOUND ON DISK 
9767 3*3%=0 MUST BE ZERO 
9768 3*THE COMMAND THEN IS JSR PC,COMHD 
9769 3? 
9770 3* 
9771 3? 
9772 3* 
9773 3* 
9774 9° 
9775 3* 
9776 3* 
9777 3” 
9778 3* 
9779 3*IN A READ DATA COMMAND FILL THE FOLLOWING 
9780 3*CYL= WITH CYLINDE® TO BE FOUND ON DISK 
9781 3*SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK 
9782 s*KEY1= WITH FEY1 TO BE FOUND OW PISK 
9783 s*KEVY2=WITH KEY2 TO BE FOUND ON DISK 
9784 3*DAWORD= WITH “UMBER OF WORDS TO BE FOUND ON DIS¥ 
9785 3*3X=0 MUST BE ZERO 
9786 3*THE COMMAND THEN IS JSR PC,COMHD 12 
9787 3* 
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9768 
9789 
9790 
9791 
9792 
9793 
9794 
9795 
9796 
9797 
9798 
9799 
9800 
9801 
9802 
9303 
9804 
980 
9806 
9307 
9808 
9F09 
9810 
9°11 
9812 
9813 
9814 
9815 
916 
9817 
9818 
9819 
9820 
9921 
9622 
9823 
9824 
9825 
9826 
9927 
9828 
9829 
9830 
9831 
9832 
9833 
9834 
9835 
9836 
9837 
9838 
9839 
9840 
941 
9842 
9843 


047036 
047040 
047044 
047052 
047054 
047056 
047060 
047062 
047064 


047066 
047074 
047102 
047110 


047116 


047124 
047130 


047132 
047136 
047142 


29-MAR-76 00:00 


000000 
011637 
162737 
010046 
010146 
010246 
010346 
010446 
010546 


012777 
052777 
042777 
052777 


012737 


005337 
001375 


013746 
042716 
012637 


002014 
000004 


000001 
000004 
000004 
000001 


000113 
047036 
047202 


177740 
047152 


002014 


132564 
132556 
132550 
132522 


647036 


OISK SIMULATION 


MACY11 30(1046) 


06-DEC-77 13:57 PAGE 223 


Pp eMeeaenantanrenaaaneraneananeneanaragnensaraeesenegeserererasete 
s*M@RITE DATA COMMARD 


3*OR READ COMMAND I.E DATA ONLY OR HEADER AND DATA 
XX 


s**THIS SUBROUTINE IS THE FIRST IW A SERIES OF NESTED SUBROUTINES 
#**IT ISSURE DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC IWDEX, AND THE 


3**°G0° 


BIT 


s**IT THEN CALL THREE OTHER SUBROUTINES, WHICH IN TURW CALL OTHER 


3** SUBROUTINES. 


gee 
3*e 
3% 
3*¢ 


RUNCTR: 
COMHD: 


RUNWATs 
1$: 


SEARCH 
ROHEAD 
WRDATA 
REDATA 


eWORD 
MOV 
SUB 
MOV 
MOV 
MoV 
MOV 
MOV 
MOV 


MOV 
BIS 
BIC 
BIS 


DEC 
BNE 


MOV 
BIC 
MOV 


THESE ARE: 


0 

(SP), @#PCJSR 
64, Q8PCJSR 
RO,-( SP) 
R1,-( SP) 
R2,-(SP) 
R3,-(SP) 
R4,-(SP) 
RS,-(SP) 


#DMD, @RHMR 
SMINX, @PHMR 
SVINX, QRHMR 
#G0,@RHCS1 


#75 .,@GRUNCTR 


@FRUNCTR 
is 


SECOT®,. -(SP) 
#177740, (SP) 
(SP)*, @#TRK 


sSAVE PC OF JSR + 4 
sSAVE PC OF JSR 
33PUSH RO ON STACK 
33PUSH R1 ON STACK 
33PUSH R2 ON STACK 
33PUSH R3 OW STACK 
33PUSH R4 ON STACK 
33PUSH RS ON STACK 


3SET DIAGNOSTIC MCDE 

3SET DIAGNOSTIC INDEX 

sCLEAR OLAGNOSTIC INDEX 

sISSUE °GO° BIT & STALL “TILL “RUN 
s(FUNCTION CODE IS ISSUED BY THE TEST) 
sLOAD STALL COUNT = APPROX. 4500S 

sFOR 11/50 CPU WITH CORE MEvORY 

sCOUNT DOWN ONE 

sCONTINUE UNTIL = 0 


}GET DESIRED SECTOR/TRACK 
3¥AFE OWLY SECTOR 
3SAVE SECTOR me 








@EDC-11-NZPIC-2, PPO4/S/0 OSKLS CONTROLLER T5T-PT 1 WACVil 26(1046) O8-D®C-77 43257 PACE 224 
O7KICR.PAL 00200 OS® SEMULATION 
9244 04714€ 004137 053246 JSk k1, @SSEARTH SISSU® SECTOR CLOCKS ¢----------------y 
9945 
9945 047157 000000 TPe: -woRPD 8 
9947 947154 012701 000240 “oy J. axoe, Ri ;CUTKG TQ MOVE NKOPS 
9942 047160 010137 047712? MOV k1, @9SSYK ;NOP TKTO SSYN 
9°99 047164. 010137 947214 “ny ki, 99HEDCAP 3NOP TNTO HEDCAP 
9850 047170 010137 0472716 mov Rl, @@4EDSYN 34OP TNTO HEDSYN 
9951 047174 004137 047322 ISK R1, ABROWEAD 
9959 
9253 
9854 3*DUNWY ERROR CALL LOCATIONS POF THE READ HEANE® OPERATION 
5 
9956 047700 000000 CYL: -worD 0 SCYLINDER ADDRESS 
9857 047202 000000 SECOTR: .WORD 0 3SECTOR/TRACK ADDRESS 
9858 047204 000000 KEY1: .WOR=D 0 3REY1 WORD 
9259 047206 000000 KFY2:  .WURD 0 3*EY2 WORD 
9960 047210 000000 Xe WORD 3¥=1 WRITE COMMAND 
9861 3%20 READ COMMAND 
326? 
9963 047212 000240 SSYN: NOP pTF "ERROR 2” INSERTED BY RDHEAD 
9964 3SUPROUTINE THEN THE FIPST SYNC. 
9865 31S WOT DETECTED. WO BAD DATA 
9906 31S GIVEN BECAUSE SYNC=144000 q 
9°67 ;CANNOT BE READ. WORD WO 
9868 31S "1" BECAUSE THIS IS THE FIRST 
9969 3WORD TESTED q 
9270 
9271 047214 000240 HEDGAP: NOP 31F "ERROR 3" INSERTED BY 
9872 #RDHEAD SUBROUTINE THEN THE < 
9872 pHEADER GAP 0°S WERE NOT 
9874 sWRITTEN RIGHT. 
9875 31F “WORD NO” CONTAINS, SAY < 
9876 33(8), THEN IT IS THE THIRD 
9877 }WORD OF A S WORD HEADER 
9879 3GAP THAT 1S WRONG < 
9879 3"BAD DATA" CONTAINS WHAT IS 
gaan 3COTAG ON THE DISK 
9R61 q 
9882 047216 000240 HEDSYN: NOP 31F “ERROR 3” INSERTED BY RDHEAD 
9283 ;SUBROUTINE THEN THE HEADER SYNC. 
9884 3CENERATED BY DCL IS WRONG < 
9885 30R THE LAST BYTE 
9896 30F THE HEADER GAP 0°S IS WRONG 
9987 31N EITHER CASE WCRD NO=0 q 
gage ;RIGHT BYTE IS HEADER 0 
9839 sLEFT BYTE IS SYNC 
9990 3"BAD DATA® HAS WHAT IS GOING | 
9A91 30N DISF 
9292 P 
9293 047220 005737 002006 TST @#ERFLGS pARE ANY ERRORS DETECTED 
9994 047224 001017 BNE OUT 31f VES, EXIT -------------------> 
9895 047226 005737 047210 TST @ex 31S IT A DATA WRITE ? c 
9896 047232 001410 BEQ DAREAD 7NO..eTHEN DO A DATA READ 
9997 047234 005737 047314 TST @#NOSYNC 31S THIS FORCED HEADER ERROR COMMAND 
9898 31f YES NOSYNC=-1 THEN WRITE OP PEAD < 
9899 31S SHUT OFF SO BRANCH OUT A3 
< 
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OZRJGA.P11 29-MAR-76 00:09 DISK SIMULATION < 


9900 31F WOSYNC=0 THEN CONTINUE 

9901 047240 001011 BNE out SEXIT LF SET --2eeeeenennnenne--e~y <q 
9902 

9903 047242 004137 050566 JSR Rl, @@WRDATA SWRITE DATA (--------------------y ‘ 
9905 047246 000000 NOWORD: .WORD 0 3NO OF WORDS TO BE WRITTEN 

9906 047250 000000 Y: WORD 0 ; 

9907 047252 000404 BR out ittrt — — | 
9908 

9909 047254 004137 053522 DAREAD: JSR Ri, @@REDATA 3PREAD DATA <----------------------> 

9910 047260 000000 DAWORD: .WORD 0 3NO OF WORDS TO BE READ < 
9911 04726? 000000 -woRPD 0 

9912 047264 OUT: 

9913 047264 012605 Mov (SP)¢,R5 33POP STACK INTO PS q 
9914 047266 012604 MoV (SP )+,R4 33POP STACK INTO R4 

9915 047270 012602 MOV (SP)+¢,R3 33POP STACK INTO R3 

9916 047272 012602 MoV (SP)¢,R2 33POP STACK INTO P2 q 
9917 047274 012601 MoV (SP)+,R1 33POP STACK INTO R1 

9918 047276 012600 MOV (SP)*,R0 33P0P STACK INTO RO 

9919 047300 000207 RTS Pc zEXIT ROUTINE q 
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OZRIGA.P1L 


9920 
9921 
9922 
9923 
9924 
9925 
9926 
9927 
9928 
9929 
9930 
9931 
9932 
9933 
9934 
9935 
9936 
9937 
9938 
9939 
9940 
9941 
9942 
9943 
9944 
994° 


047302 
047304 
047306 
047310 
047312 


29-MAR-76 00:00 


014400 
000000 
000000 
000000 
000000 


DISK SIMULATION 


33 AXO 


s*THE DISK SECTOR IS DEVIDED AS FOLLOWS 
3*19 WORDS OF 0, ONE WORD 144000 
s*THESE MAKE 39 BYTES FOR SECTOR GAP AND ONE SYNC. BYTE 


RSYNC: 14400 


RCYL: ) 
RSETR: 0 
RKEVi: 0 
RKEY2: 0 


3*35 WORDS OF o OWE WORD 144000 
s*THESE MAKE 11 BYTES FOR HEADER GAP AND OWE SYNC. BYTE 
s*THESE APE OCL GENERATED 


S*THERE ARE 256 WORDS OF DATA 
d*THERE APE 2 WORDS FOR ECC GENERATED BY DCL 
3*15 WORDS OF o FOR DATA GAP AND TOLERAWCE CaP 


33 IX&XKXXX 





c3 
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9946 
9947 
9948 
9949 
9950 
9951 
9952 
9953 
9954 
9955 
9956 
9957 
9958 
9959 
9960 
9961 
9962 
9963 
9964 
9965 
9966 
9967 
996" 
9969 
9970 
9971 
9972 
9973 
9974 
9975 
9976 
9977 
9978 
9979 
9980 
9981 
998°? 
9983 
9984 
9985 
9986 
9967 
99869 
9989 
9990 
9991 
999? 
9993 
9994 
9995 
9996 
9997 
9998 
9999 
10000 
10001 


047314 


047316 
047320 


047322 
047326 
047332 
047336 
047342 
047346 
047350 
047354 
047360 
047364 
047370 
047374 
047400 
047402 
047406 
047412 
047416 
047422 
047426 
047430 
047432 
047434 
047436 
047442 
047446 
047452 
047454 
047456 
047464 
047470 
047474 
047476 
047504 
047512 
047520 
047522 


29-MAR-76 00:00 


000000 
000000 


012137 
012137 
012137 
012137 
012137 
010146 
013700 
012705 
012710 
052710 
052710 
042710 
000404 
012710 
042710 
012702 
052710 
042710 
005302 
001272 
005305 
001362 
012702 
005037 
004737 
005302 
001372 
013737 
004737 
032710 
001012 
012737 
013737 
012737 
000571 
013737 


047304 
047306 
047310 
047312 
050112 


001660 
000002 
000001 
000010 
000002 
000012 


000013 
000012 
000007 
000002 
000002 


000022 
050110 
050114 


047302 
050114 
001000 


000001 
047302 
104002 


047304 


050110 


047320 
001124 
047212 


050110 553 


DISK SIMULATION 
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3 vv — 


2*READ OISK HEADER 


WOSYNC: 0 


TY: 


RDHEAN: MOV 


1$% 


2$: 
3$3 


4$: 


MOV 
MOV 
MOV 
MOV 
MoV 
MoV 
MoV 
MoV 
BIS 
BIS 


SFOPCED HEADER ERROR = -i1 
sWOPMAL = 0 

JERRO® TYPE NO. 

sERROR WORD NO. 


(RI) eo, 
CR1)¢, 
(R1 De, 
(RL), 
(R1)e, 


@@RCYL ;STORE CYLINDER ADDRESS 

@PRSETR STORE SECTOR AND TRACK ADDRESS 
@PRKEY1 ;STORE KEY1 

@SRKEY2 3STORE FEY2 

@FCOMPA ZSTORE COMPARE OR NOT 

R1,-(SP) 33PUSH R1 ON STACK . 
@SRHMR, RO 3RO CONTATNS MAINTANENCE REC. 
#2, RS 3P5 IS A COUNTER FOR WORDS 


#O0MD, @RO sDIAG. MODE 
#MSTCK, @RO 9SET SECTOR FOR FIRST WORD 
@MCLK, 9RO 3SET CLOCK FOR FIRST WORD 


@MSTCKIMCLK,@RO ;RESET SECTOR AND CLOCK 

2s sBRANCH OVER GIVING SECTOR FOR FIRST TIVE 
@MSTCKIMCLKIDMD,Q@P03SET SECTOR, CLOCK, DIAG. MODE, RESET INDEX 
SMSTCKEIMCLK,@RO ;PESET SECTOR, CLOCK 


87, Rk? 3R2 IS A COUNTER FOR BYTES 
#¥CLK, @PO0 3SET CLOCK 

@¥CLK, @PO 3PESET CLOCK 

R2 s8YTE COUNTER 

3$ sPRANCH IF BYTE NOT COMPLETE 
RS sWORD COUNTER 

1s sBRANCH IF WORD NOT COMPLETE 
$18., R2 #NO OF WORDS OF ZEROS 

@#wORD sPEAD 0 

PC, @PREAD ;GO TO PEAD 

R2 sCOUNT 

4s 

Q@PtRSYNC,Q@9WORD  ZSYNC. WOPD 

PC, @#READ 

#D0TS¥, @RO sSY¥NC. BYTE DETECTED? 

$$ s8RAWCH IF SYNC DETECTED 

#1, @PERWORD sFRROR WORD AO 
@#RSYNC, @#SGDDAT sSYNC WORD 

#104002, @8SSYN  ;INSERT “ERROR 2” IN SSYN 
13$ sBRANCH OUT 


@®RCYL, @#WORD 


sSéTUP CYLINDER 


v3 
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10002 047530 004737 050114 JSR PC, @WREAD READ 

10002 047534 013737 047306 050110 MoV QERSETR,O#WORD ZSETUP SECTOR/TRACK 

10004 047542 004737 050114 JSR PC, @#READ sPEAD 

10005 047546 013737 047310 050110 MOV @PRKEVYL,@#WORD ZSETUP FEY 

10006 047554 004737 050114 JSR PC, OSREAD sREAD 

10007 047560 013737 047312 050110 MOV G@FRKEV2,@#WUORD  ;SETUP KEY2 

10008 047566 004737 050114 JSR PC, @$READ sPEAD 

10009 047572 013737 051100 050110 MOV @RUCRC,CRWORD SETUP CRC 

10010 047600 004737 050114 JSR PC, @@READ sREAD 

10011 047604 005737 002026 Ttst @#TESOTE 31S THIS A ORIVE TIMING ERROR 
10012 047610 001135 BNE 13$ sPRANCH OUT IF YES 

10013 047612 005737 050112 Tst @# COMPA 31S THIS A PERO OR WRITE COMMAND 
10014 047616 001472 BEQ 11$ 

10015 047620 012705 05110? MOV #HEGAP, RS SPOTNTEP FOR HEADER GAP 

10016 047624 012702 000005 MOV #5, R2 3NO OF WORDS OF ZEROS 

10017 047630 012737 000006 047320 65: MOV #6 , RGERWOPRD ZERROP WORD WO SET 

10018 047636 004737 050346 JSR PC, QAWRITE sFOR HEADER GAP 

10019 047642 605737 050344 187 euuondo sTEST WRITTEN WORD 

10020 047646 001413 BFEQ 7$ sPRANCH IF GCOD THAT TS 0 

10021 047650 160237 047320 SUB R2,@R8ERWORD SWORD WO IN ERROR 

10022 047654 005037 001124 CLR e#SCODAT 3GO0D WORD SHOULD BE 0 
10023 047660 013737 050344 001126 MOV @#uUWORD, SBDDAT  38AD DATA 

10024 047666 012737 104003 047214 MOV #104003, @#HEDGAP s"ERROR 2° GOES IN HEDGAP 
10025 047674 000503 BP 13$ sBRANCH OUT 

10026 047676 013725 050344 7$3 MOV @#WWORD,(P5)¢ ZSAVE HEADER CAP 

10027 047702 005302 DEC R2 

10028 047704 001351 BRE 6$ 

10029 047706 004737 050346 JSR PC, @GWRITE ZWRITE HEADER (DATA) GAP SYNC 
10030 047712 023737 047302 050344 cvp @FRSYNC, @#WWORD 

10031 047720 001426 BEQ 10$ ’ 
10032 047722 005737 047314 Ttst @#NOSYNC s1S THIS FORCED HEADER ERROR COMMAND 
10033 31F YES NOSYNC=-1 THEN BPITE JP READ 
10034 3TS SHUT OFF SO BRANCH OUT 
10035 21F NO NOSYNC=0 THEN CONTINUE 
10036 047726 001406 BEQ 14$ sPRANCH IF TRUE ERROR 

10037 047730 005737 050344 TST etuword i 

10038 047734 001420 BEQ 10$ sPRARCH IF GOOD 

10039 047736 005037 001124 CLR e#SGDDAT #1T S¥OULD BE ZERO 

10040 047742 000403 BPR 15$ sPRANCH TO TYPE ERROR 

10041 047744 013737 047302 001124 14S: MOV @PRSYNC, @FSGDDAT 36000 DATA 

10042 047752 013737 050344 001126 15S: MoV QPWWORD, QRSPDDAT 3PAD DATA 

10043 047760 012737 000096 047320 MOV #6, @#ERWORD 

10044 047766 012737 104003 047216 MOV #104003, @#HEDSYN 

10045 047774 000443 BR 135 sBRANCH OUT 

10046 047776 613725 050344 10S: MOV @PWWORD,(PS)¢ sSAVE DATA SYNC. 

10047 050002 000440 bP 13$ 

10048 s*READ COMMAND STAKT FROM HERE 

10049 050004 012762 000005 11$: MOV 5. R2 

10050 050010 005037 050110 1252 CUR WORD 

10051 050014 004737 050114 JSk PC, READ sPEAD HEADER GAP 

10052 050020 90530? DEC R? 31s 5 HEADER GAP ZEROS COYPLETE 
10053 050022 001372 BNE 12$ 31F NOT BRAWCH 

10054 050024 013737 047302 050110 MnV @PRSYNC,@#WORD SYNC WORD 

10055 050032 004737 050114 JSR PC, READ sPEAD HEADER (DATA) SYNC) 

10056 050036 005737 047314 TsT @#NOSYNC 

10057 050042 001404 BEQ 16$ 31F KOT ERROR COMMAND BPANCH 
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10059 
10059 
10060 
10061 
10062 
10063 
10064 
10065 
100656 
10067 
10068 
10069 
10079 


050044 
050050 
050052 
050054 
050060 
050062 
050070 
050076 
050104 
050104 
050106 
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032710 
001415 
000403 
032710 
001011 
012737 
013737 
012737 


012601 
000201 


00:00 
001000 


001000 


000006 
047302 
104002 


CONTROLLER TST-PT 1 


047220 
001124 
047216 


DISK SIMULATION 


16$: 
17$3 


13$: 


MACY11 30€1046) O8-DEC-77 13:57 PAGE 229 


#0TSY,@RO sSYNC. DETECTED 
13$ 3TF ZERO BRANCH OUT 
17$ s1f NOT ZERO BRANCH TO ERROF 


#OTSY, @POd sSYNC. DETECTED? 
13$ JsPRANCH IF YES 
#6, RSERWORD sERROR WORD NO. 
@@RSYNC,@PSCODAT;SYNC WORD 
#104002, @8HEDSYN 


_ d3POP STACK INTO Pil 
1 


F3 
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DZRJGA.P11 


10071 
10072 
10073 
10074 
10075 
10076 
10077 
10078 
10079 
10080 
10081 
10082 
1006? 
10084 
10085 
10086 
10087 
10088 
10089 
10090 
10091 
10092 
10093 
10094 
10095 
10096 
10097 
100998 
10099 
10100 
10101 
10102 
10103 
10104 
10105 
10106 
10107 
10108 
10109 
10110 
10111 
10112 
10113 
10114 
10115 
10116 
10117 
10118 
10119 
10120 
10121 
10122 
10123 
10124 
10125 
10126 


0501106 
050112 


050114 
050114 
050116 
050122 
050126 
050132 
050134 
050140 
050144 
050150 
050154 
050156 
050162 
050164 
050172 
050174 
050200 
050204 
050210 
050212 
050216 
050220 
050224 
050226 
050232 
050236 
05024? 
050246 
050250 
050254 
050256 
050264 
050266 
050272 
050276 
050302 
050304 


29-MAR-76 00:00 


000000 
000000 


010246 
01270¢ 
012710 
006037 
103002 
052710 
012702 
052710 
005737 
001411 
032710 
001404 
012737 
000402 
005037 
012746 
006037 
103002 
012716 
012610 
005737 
001404 
005237 
004737 
052710 
005737 
001411 
032710 
001404 
012737 
000402 
005037 
012746 
006037 
103002 
012716 


000002 
000001 
050110 


000020 
000007 
000012 
045234 
000020 
177777 
0452726 
000001 
050110 
000021 
045234 
045246 
045264 
000002 
043734 
000020 
177777 
045226 
000001 
050110 


000021 


045226 


045226 


DISK SIMULATION 


MACY11 30(1046) 08-DFC-77 13357 PACE 230 


FF AAAAAAHAAAAAAAAAAAAAAHAAAAOARARORERAERARARAAERAERERAAAAAREREAEE 


#*READ OWE WORD IW "WORD* 


FF TAAAARAARAAAAAAAARAAARAAAAAAHAEARARAARERAAAAAEREAAARARRORAAAEAER 


COMPAS 


1$3 


5$3 
6$: 


/ 


4* 


MOV R?,-(SP) 

MOV #2, RS 

MOV #O0MD, e@RO 

ROR e#e0Rrd 

BCC 1$ 

BIS #¥RD, @RO 

MOV a7, k2 

BIS #MSTCKIMCLEK, 

Tst @#TSECCG 

BEQ 6$ 

BIT #¥RD, aao 

BEQ $$ 

MOV #-1,@8ECDATA 

BR 6$ 

CLR @#ECDATA 

MOV #OMD, -( SP) 

ROR @euORD 

Bcc 2$ 

ae tee 
2$3 yoMov P)e, @RO 

Tst e@#TSECCG 

BEQ 3$ 

Inc @#DATENV 

JSR PC, A#ECTEST 

BIS SMCLK, @RO 

Ttst @#TSECCC 

BEQ 6$ 

BIT #¥RD,@RO 

BEQ 7$ 

MOV #-1,@Q8ECDATA 

BP 6s 

CLR @#ECOATA 

MOV OVD, -(SP) 

ROR e#wORD 

BCC as 

MOV #¥RDIDMD, (SP) 


33PUSH P2 OW STACK 

sWORD COUNTER 

sSET DIAG. MODE 

sCHECKIWG IF THERE IS A UNE 

sTF WO OWE BRANCH 

sSET BIT 4 IF DATA HAS ONE 

sPYTE COUNTER 

@RO dSET CLOCF,DATA IF ANY, SECTOP 
31S THIS BIT TO GENERATE AWD TeST ECC 
sBRANCH IF "NO 

3TS DATA SIT A ONE 

sPRARCH IF DATA GIT IS 0 

sECC DATA BIT IS & OWE 

sBRANCH 

3©CC DATA BIT IS A O 

s®EEP ONLY DIAG. MODE 

sCHECKING IF THERE IS A OWE 

31F WO OWE PRANCH 

(SP) sKEEP DATA AND DIAG. MUDE 
sPUT IN DATA,PESET CLOCK, SECTOR 

31S ECC TO BE GENERATED FOR THIS FIT 
sRRAWCH IF RO 

sNUMBFR CF CLOCKS GIVEN FOR DATA ENVELOPE 
3GO0 TO GENERATE AND TEST ECC 

sSET CLOCK 

37S THIS BIT TO GENERATE ECC 

SPRANCH IF NO 

31S DATA BIT A ONE 

SPRANCH IF DATA BIT IS = 0 

sECC DATA BIT IS & ONE 

sR RANCH 

sECC DATA BIT IS = 0 

sFEFP DIAG. MODE 

SCHECKING IF THERE IS A UNE 

sPRANCH IF NO OWE 

2FEEP DIAG. MODE AND DATA 
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DZRIGA.P11 29-MAR-76 00:00 DISK SIMULATION 

10127 050310 012610 4S: MoV (SP)+, @RO dSET DATA, DIAG. MODE, CLEAR CLOCK 
10128 050312 005737 045234 TST @#TSECCG 31S THIS PIT TO GENERATE ECC 

10129 050316 001404 BEQ 9$ sBRANCH IF NO 

10130 050320 005237 045246 Inc @#DATENV sNUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 
10131 050324 004737 045764 JSR PC, @RECTEST 260 TO GENERATE AWD TEST ECC 

10132 050330 005302 9$3 DEC R2 sBYTE COUNTER 

10133 050332 001341 BNE 3$ sBRANCH IF OWE BYTE NOT COMPLETE 
10134 050334 005305 DEC kS SWORD COUNTER 

10135 050336 001300 BNE is sPRANCH IF OF WORD WOT COMPLETE 
10136 050340 012602 MOV (SP)¢,R2 33POP STACK INTO P2 

10137 050342 000207 RTS Pc 

101398 

10139 


H3 
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OZRJGA.P11 


10140 
10141 
10142 
10149 
10144 
10145 
10146 
10147 
10148 
10149 
10150 
10151 
10152 
10153 
10154 
10155 
10156 
10157 
10158 
10159 
101690 
10161 
1016? 
10163 
10164 
10165 
10166 
10167 
10169 
10169 
10170 
10171 
10172 
10173 
10174 
10175 
10176 
10177 
10178 
10179 
10160 
10181 
10182 
10183 
10184 
10185 
10136 
10187 
10188 
10139 
10190 
10191 
10192 
10193 
10194 
10195 


050344 


050346 
050346 
050350 
050352 
050354 
050356 
050362 


050366 
050372 
050376 
050402 
050404 
050412 
050414 
050416 
050420 
050424 
050426 
050430 
050434 
050440 
05044? 
050446 
05045? 
050456 
050462 
050464 
050472 
050474 
050476 
050500 
050504 
050506 
050510 
050514 
050520 
050522 


010046 
010246 
010346 
010546 
012705 
012710 


012702 
012710 
032710 
001406 
012737 
000261 
006002 
000404 
005037 
000241 
006003 
012710 
005737 
001404 
005237 
004737 
052710 
032710 
001406 
012737 
000261 
006003 
000404 
005037 
000241 
006003 
012710 
005737 
001404 
005237 


000092 
000001 


000007 
000013 
000040 


177777 


045226 
000001 
045234 
045746 
045264 
000002 
000040 


177777 


045226 


000001 


045234 
045246 


045226 


045226 


DISK SIMULATION 
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FP TAAMAAAAAAAAAHAAAAAAAAAAAAAAHAEHAAHAAOARAAARAERAAOHEAAASETAAAEEEE 


s*WRITE ONE WORD WHICH COMES BACK 


FF PAAAASAAAAAAAAAAAAAAAAAOARAARAHAAAAAAARAEREAEOAAREHAHARADHOAAELE 


WRITES 


1$: 


2$3 


3$3 


4S: 


55: 


6$: 


MOV 
ucv 
BIT 
BEG 
MOV 
SEC 
ROR 
BR 

CLR 
cuc 
ROR 
MOV 
tst 
BEQ 
Inc 
JSR 
BIS 
BIT 
BEQ 
MoV 
SEC 
ROR 
BPR 

CLR 
cic 
ROR 
MOV 
TsTt 
BEQ 
Inc 


RO,-( SP) 
R2,-(SP) 
R3,-CSP) 
RS5,-( SP) 
82,P5 
#1, eao 


87,F2 


33PUSH RO ON STACK 

33PUSH R2 OW STACK 

33PUSF R3 OW STACK 

33PUSH RS ON STACF 

sWORD COUNTER 

sSET DIAG. MODE 

3P0 HAS RHMP ADDRESS IW IT 
sBYTE COUNTER 


@MSTCFEMCLEID™D,@PO3SET SECTOR AND CLOCK 


eMUR, eRO 

2$ 
#-1,@8ECDATA 
R3 

3$ 

@SECDATA 

R? 

#DMD, ®RO 
e#eTSECcG 

4s 

@#DATENV 

PC, R#ECTEST 
@¥CLK, @P0 
#¥BP, ARO 

S$ 
#-1,@8ECO ATA 
R? 


6$ 
@SECDATA 


R? 
#0mD, 
@FTSECCG 


7s 
@fDATENV 


SCHECK WRITE BIT TM MAINT. PEG. 
sPRANCH IF ZERO 

3ECC DATA BIT IS A ONE 

sSET CARRY 

»¥OVE 1 FORWARD 


sECC DATA BIT IS = 0 

sCLEAR CARRY 

s¥OVE O FOR WWORD 

sCLEAR SECTOR AND CLOCK 

31S THIS BIT TO GENERATE ECC 
sBRANCH IF NO 

SNUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 
260 T0 GENERATE AND TEST ECC 
sSET CLOCK IN RHMR 

sCHECK WRITE BIT TN RAMP 
SPRANCH IF 7EPO 

sECC DATA BIT IS A OBE 

sSET CARRY 

s¥OVE 1 FOR wWORD 


sECC MATA BIT IS ZERO 

sCLEAR CARRY 

s¥UVE O FOR WWCRD 

sCLEAR CLOCK 

31S THIS BIT TO GENERATE ECC 

sPRANCH IF NO 

sNUMBFR OF CLOCKS GIVEN FOR DATA FNVELOPE 





: MNDEC-11-DZRJG-A,RP04/S/6 DSKXLS CONTROLLER TST-PT 1 MACY11 30(1046) 06-DEC-77 13:57 PAGE 233 


DZRIGA.PLI 29-MAR-76 00200 OISK SIMULATION 
10196 050526 004737 045264 JSR PC ,@SECTEST 3CO TO CEWERATE AWD TEST ECC 
10197 050532 005302 783 DEC R2 sCOUNT FOR SYTE END 
10198 050534 001346 BWE 4s s1f WOT BYTE END PRANCH 
10199 050536 005305 DEC RS sCOUNT FOR WORD END 
050540 001312 BNE i$ s1f WOT WORD END PRANCH 
10201 
tts 050542 010337 050344 MOV R3, agwwORD sSTORF THE WORD 
10204 050546 012605 “ov CSP Do, RS 33POP STACK INTO RS 
10205 050550 012603 MoV (SP)¢,R2 33POP STACK INTO P3 
10206 050552 012602 Mov (SP) e,R2 33POP STACK INTO R2 
10207 050554 012600 MoV (SP)¢,RO 33POP STACK INTO RO 
10208 050556 0002707 RTs Pc 
10209 
10210 


le hell ll Mlle ll 


33 
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( DZRIGA.P11 


10211 
: 10212 
10213 
10214 
10215 
10216 
10217 
; 10218 
10219 
10220 
10221 
10222 
10223 
10224 
10725 
10226 
10227 
10228 
10229 
10230 
10231 
10232 
10232 
10234 
10235 
: 10236 
10237 
10238 
: 10239 
10240 
10241 
10242 
10243 
10244 
‘ 10245 
10246 
10247 
: 10248 
10249 
10250 
10251 
10252 
10253 
: 10254 
10255 
10256 
J 10257 
10258 
10259 
10260 
10261 
10262 
: 10263 
10264 
10265 
: 10266 


050560 
050562 
050564 
050566 
050566 
050572 
050574 


050600 
050602 
050604 
050606 
050610 


050612 
050616 
050622 
050626 
050630 
050632 
050636 
050642 
050646 
050652 
050654 
050660 
050662 
050670 
050674 
050700 
050704 
050706 
050710 
050712 
050714 
050720 
050724 
050726 
050730 
050734 
050740 


000000 
000400 
000000 


011137 
012102 
012137 


010046 
010146 
010246 
010346 
010446 


012701 
012703 
012723 
005301 
001374 
013760 
013746 
163716 
011637 
012604 
005737 
001403 
012737 
012703 
004737 
013723 
005302 
001372 
005704 
001406 
004737 
013723 
005304 
001372 
005037 
012701 
004737 


050560 
050112 


000016 
052124 
177777 


001660 
050562 
050560 
050564 


002024 


177777 
051116 
050346 
050344 


050346 
050344 


045234 
000002 
050346 


045234 


DISK SIMULATION 


MACY11 30€1046) O8-DEC-77 13:57 PAGE 234 


33 IIII 


s*URITE DATA - PUT DATA INTO “DISK” AREA FROM "WHORD® 


3*ONE WORD AT A TIME 
pp eeMeeeeneeneaenreeaerenenneeearereenaneneneneneeonanennaneenaeee 


COUNTD: 0 


FORMATS 256. 


ZWORDS: 
WROATAS 


1$: 


152 
2$% 


3$3 


4$3 
552 


0 


(R1),@8COUNTD 
CR1)¢,R2 
(R1)¢,@8COMPA 


RO,-( SP) 
R1l,-(SP) 
R2,-(SP) 
R3,-( SP) 
R4,-( SP) 


#14.,R1 
@TOLGAP,R3 
8-1, (R3)* 
R1 


1$ 

@#RHMR, RO 
Q@#FORMAT, -(SP) 
@SCOUNTD, (SP) 
(SP), @#7¥0RDS 
(SP )¢,R4 
@#TSECC 

7$ 

#-1, @#TSECCG 
#DISK,&3 

PC, Q#WRITE 
a 


2$ 

R4 

4s 

PC, REWRITE 
Senne, ee 
4 


3$ 
@#TSECCG 
#2,P1 
PC, WRITE 


sSTORE WO. OF JORDS TO PE WRITTEN 
SSAME IW R2 
sCOMPARE OR NOT 


33PUSH RO OW STACF 
33PUSF R1 ON STACK 
33PUSR R2 OW STACK 
33PUSH R3 ON STACK 
33PUSH R4 ON STACK 


3¥O. OF TOLERANCE GAP WORDS 
sSTART OF TOLERANCE GAP TABLE 
sMARE If 177777 

3TS 14 COMPLETED 

3TF WO BRANCH 

3RO CONTAINS MAINTANENCE REG. 


3NO. OF ZERO WORDS TO BE WRITTEN 


31S THIS AN ECC TEST ? 

sPRANCH IF WO 

STHESE RITS ARE TO GENERATE ECC 
SADDRESS THE "DISK" AREA 

sURITE INTO “WBORD® 

sSTORE OW SIMULATED DISK 

z2covur DOW" 

SCONTINUE IF ALL WORDS NUT WRITTEN 
SAMY ZEROS TO BE WRITTEN ? 
SPRANCH IF WONE TO BE WRITTEN 
sWRITE ZEROS INTO “wWwORD® 
sSTORE INTO “DISK 


gNO MORE ECC TO BE GENERATED 
aWRITE ECCL AND ECC? ON SIMULATED DISF 


3 








MNDEC-11-DZRJG-A,RP04/5/6 DSKLS CONTROLLER TST-PT 1 
DZRJGA.P11 


10267 
10268 
10269 
10270 
10271 
10272 
10273 
10274 
10275 
10276 
10277 
10278 
10279 
10280 
10281 
10262 
10283 
10284 
10265 
10286 


050744 
050750 
050752 
050754 
050760 
050764 
050770 
050774 
051000 
051002 


051004 
051006 
051010 
051012 
051014 


051016 


29-MAR-76 


013723 
005301 
001372 
004737 
013723 
012701 
004737 
013723 
005301 
001372 


012604 
012603 
012602 
012601 
012600 


000201 


00:00 
050344 


050346 
050344 
000016 
050346 
050344 


DISK SIMULATION 


MOV 
DEC 
BUE 
JSR 


MACY11 30(1046) O08-DEC-77 13:57 PAGE 235 


Os UWORD, (R3)¢ 
Ri 


58 

PC, WRITE 

@RWWORD, (R3)D¢ 
4e/P1 

PC, REVRITE 

— aoe, 


(SP)o,R4 
(SP)¢,R3 
CSP )o,R2 
(SP)¢,R1 
(SP) ¢,R0 


R1 


sSTORE ON WEECL AND WEEC2 


SWURITE DATA GAP INTO “wwORD® 
sSTORE TUTO “DISK” 


SWRITE TOLERANCE CAP ZEROS 
dSTORE THTO “DISK 


33POP STACK INTO FR4 
33POP STACK INTO R3 
33POP STACK INTO R2 
39PO0P STACK INTO R1 
33POP STACK INTO PO 


L3 
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OZRIGA.P1I1 29=MAR-76 00:00 DISK SIMULATION 

10287 

10288 

10289 

10290 

10291 

10292 

10293 Ppt eenaneraanranerarerenenaeasanaseeneaeenaenenenanenenenenenesen 
10294 s*WRITE HEADER AND DATA 

10295 - 3* 

10296 3* 

10297 s*THIS IS THE SIMULATED DISK 

10298 3*ONLY OWE SECTOR OF SPACE IS ALLOWED 

10299 pp tM AeeeKeearaanerneneeasneneneeananaasenenenssereneenneneneseets 
10300 

10301 

10302 

10303 

10304 

10305 

10306 

10307 051020 000022 SECGAP: .BLKW 19. sSECTOR GAP 38 BYTES OF 0 

10308 051066 000001 WSSYNCs .BLFW 1 3SECTOR GAP 1 BYTE OF O ONE SYNC BYTE 
10309 051070 000004 HEADERS .PLK@ 4 HEADER = CYL, SECTOR/TRACK, KEV1, KEY2 
10310 051100 000001 wCRCs oBLKw 1 3crc 

16311 051102 000005 HEGAPs .®8LKW 5 ZHEADER GAP 10 RYTES OF 0 

10312 051114 000001 HDWSYN: .BLKW 1 SHEADER GAP 1 BYTE OF O OWE SYNC. BYTE 
10313 051116 SILOTB: sUSED IW SILO TEST AS SILO TABLE 

10314 051116 000400 DISK: eBLKW 256. ;DATA SPACE 

10315 052116 000001 WECC1: .BLFW 1 3ECC1 

10316 052120 000001 . WECC2: .BLKW 1 25002 

10317 052122 000001 - DTAGAPS .PLFw 1 sDATA GAP 2 BYTES OF 0 

tte 052124 000016 TOLGAP: .BLKW 14. ;TOLE® ANCE GAP 28 BYTES OF 0 
10319 

10320 


mS 





MADE CHL -DZRIG-2,WPC4/5/6 OSELS CONTROLLER TST-9T 1 
OZR ITEP LL 20-v42-76 09:0) DTS” SIMULATION 


10321 

1922? 

1022? 

10324 

103225 FP eet eeeevvesasevesvevaesaraceaseerasecaeesensagevesaaeaeaaeseseees 
19326 s°aPITE HEADER AND DATA 

19237 JP Ce SeeresacagaggsaagecceHegsenscassoosasgsagessogaosanaevenanecase 
1932° 

10329 

10339 . 

10331 
1033? 2**THIS SUBROUTINE TS THE FIRST IX & SERIES OF NESTFD SUBROUTINES 


10334 #**IT LSSUES DIAGNOSTIC MONDE, AN FXTRA DIAGNOSTIC INDEX, AND THE 


WRCVEL FOCIC46) CELE C77 17357) PATE 297 


103356 s**°CO° BIT 

10336 

10337 s**TT THEN CALL TYRES OTHER SUBROUTINES, WHYC™ IN TURN CALL OTHER 
10238 s**SUBROUTINES. THESF ARFSs 

10239 

10349 —- SEAPCH 

10341 iain WPHEAD 

10342 ie WRDATA 

1034? 

10344 

10345 

10346 

10347 

10348 

10349 

10350 052160 000000 RNCTRI: .WURD 0 s°RUN® LINE STALL COUNTER 

10351 052162 011637 002014 COMWHD: MOV CSP), @#PCJSR sSAVE PC OF JSR + 4 

10352 052166 162737 000004 002014 SUB #4, APCISP sSAVE PC OF JSR 

10353 052174 010046 MOV RO, -(SP) 3;PUSH RO ON STACK 

10354 052176 010146 MOV R1,-(SP) 33PUSH R1 ON STACK 

10355 052200 010246 MOV R2,-(SP) 33PUSH R2 ON STACK 

10356 052202 010346 MOV R3,-(SP) 33PUSH P3 ON STACK 

10357 052204 010446 MOV R4,-(SP) 33PUSH 84 ON STACK 

10358 052206 010°46 MOV RS,-(SP) 3;PUSH RS OW STACF 

10359 

10360 052210 012777 000001 127442 MOV #DMD, @RHMR #SeT NMLAGNOSTIC MODE 

10361 052216 052777 000004 127434 BIs #¥INX, @RHMR sSET NIAGNOSTIC INDEX 

10362 052224 042777 000004 127426 BIC #VINX, aPHYR sCLEAP IT 

2 052232 052777 000091 127400 BIS #60, @PHCS1 *SET °GO° BIT & STALL “TILL “PUN? 
10365 052740 012737 000113 052160 RNWATI: MOV #752, @#PNCTOl sLOAD STALL COUNTER = APPROX. 45005 
10364 ‘ sFOP 11/50 CPU WITH COR® MEMORY 
10367 052246 005337 052160 1S: DEC @#RNCTRI sCOUNT DOWN 1 TIMF 

10768 052252 001375 SWE 1$ sCurTINUe UNTIL 0 

10369 

10370 052254 013746 052340 MOV @#WSECTR,-(SP)  ZCET DESIRED SECTOR/TRACK 

10371 052260 042716 177740 BIC #177740,(SP) 3¥AKE ONLY SECTOR 

peeks 052264 012637 052774 MOV (SP )*, @#UTRE sSAVE SECTOR 

10374 052270 004137 053246 JSR R1,@#SEARCH sISSUE SECTOR CLOCKS ¢------------> 
—3 052274 000000 UTRKs WORD 0 sSECTOR NO. 


AY 





MNDEC-11-DZRJG-A, RPO4/5/6 — CONTROLLER TST-PT 1 
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10377 
10378 
10379 
10380 
10381 
10382 
10383 
10364 
10385 
10386 
10387 
10383 
10339 
10390 
10391 
10392 
10393 
10394 
10395 
10396 
10397 
10398 
10399 
10400 
10401 
1040? 
10403 
10404 
10405 
10406 
10407 
10408 
10409 
10410 
10411 
10412 
10413 
10414 
10415 
10416 
10417 
10418 
10419 
10420 
10421 
10422 
10423 
10424 
10425 
10426 
10427 
10428 
10429 
104390 
10431 
10432 


052276 
052302 
052306 
052312 
052316 
052322 
052326 


052332 
052336 
052340 
052342 


052344 
052746 


052350 


052352 


052354 


052356 


29-MAR-76 


012701 
010137 
010137 
010137 
010137 
010137 
010137 


004137 
000000 
000000 
000000 


000000 
000000 


000240 


000240 


000240 


000240 


000240 
052350 
052352 
052354 
052356 
052360 
052362 


052432 


DISK SIMULATION 


WCYL: 


WSECTR: 


WKEY1: 
WKEY2: 
GCRCs 


SEGPER: 


PSYNER: 


MOV #e¢NOP,R1 
MOV R1,R#SEGPER 
MoV R1, REFSYNER 
MOV R1,@#ERHEAD 
MOV R1,@#ERCRC 
MOV R1, @#ERHDGP 
MOV R1, @RHDESYN 
ws R1, @#WRREAD 
0 

0 

0 

0 
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sGOTNG TO MOVE NOPS 
sNOP INTO SEGAP 
3NOP INTP FSYWER 
3WNOP INTO ERHEAD 
sNOP INTO ERCRC 
sNOP INTO ERHDGAP 
sWOP INTO HDESYN 


SWRITE THE HEADER ———2 
sCYLINDER 

sSECTOR AWD TPACK 

sFKEV1 

sKEY2 

26000 cac 


3*DUMMY ERROR CALL LOCATIONS FOR THE WRITE HEADER OPERATION 


NOP 


ERHEAD: NOP 


8 
3 


RC 


NOP 


sI1F “ERROR 6" INSERTED PY 
SWRHEAD SUBROUTINE THEN 
sSECTOR GAP GOING ON OISK 
31S BOT RIGHT. 


sWORD WO. CONTAINS WHICH 

sWORD IS WRONG, THAT IS 

sFIRST OF TENTH OR WHAT EVER NO. 
sBAD WORD IS GOING OCW DISK 


sTF “ERROR 6° INSERTED BY 
SWRHEAD SUBROUTINE THEN 
sTHE LAST 0 BYTE OF SECTOR 
#GAP, OR FIRST SYNC. BYTE 
ZAFTER SECTOR GAP IS IW 
2FRROR. 


sWORD WO. CONTAINS 70 

sRIGH? BYTE IS SECTOR GAP 
sLEFT BYTE TS SYNC. BYTE 

sRAD WORD IS WHAT IS GOING OW 
sDISK. 


3IF “ERROR 6" INSERTED BY 
SWRREAD SUBROUTINE THEN 
SHEADER GOING ON DISK 


31S WRONG. 

SWORD NO 1 = CYLINDER KO 
sWOPD NO ? = SECTOR/TRACK 
sWORD WO 3 = KEVI 

sWORD NO 4 = KEY2 

3BAD WORD IS WHAT IS GOING ON 
DISK 


3TF “ERROR 6” INSERTED BY 
sWVRHEAD SUBROUTINE THEN CRC WRITTEN 
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10433 
10434 
10435 
10436 
19437 
10438 
10439 
10440 
10441 
10442 
10443 
19444 
10445 
10446 
10447 
10448 
10449 
10450 
10451 
1045? 
10453 
10454 
10455 
10456 
10457 
10458 
10459 
10460 
10461 
10462 
10463 
10464 
10465 
10466 
10467 
10468 
10469 
10470 
10471 
10472 
16473 
10474 
10475 
10476 
10477 
10478 
10479 


052360 


052362 


052364 
052370 


052372 
052776 
052400 


052402 
052402 
052404 
052406 
052410 
052412 
052414 


052416 


29-MAR-76 00:00 


000 240 


000240 


005737 002006 


001004 


004137 
000000 
000000 


012605 
012604 
012603 
012602 
012601 
012600 


000207 


050566 


DISK SIMULATION 


HDESYN: 


FNWORDS 


FOUTS: 


woP 


TsTt 
BNE 


JSR 
e WORD 
-WOPD 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


RTS 


MACY11 30€1046) (8-DEC-77 13:57 PAGE 239 


@SERFLGS 


‘FOUT 


R1,@BWRDATA 
v 
0 


(SP) o,R* 
(SP)¢,R4 
(SP )o,R? 
(SP)¢,R2 
(SP)e,R1 
(SP )e,kO 


Pc 


30N DISK IS IW ERROR. 


sGOOD DATA TS WHAT SHOULD BE ON OTSK 
sBAD DATA IS WHAT IS GOING OW DISK 
sWORD WO TS 5. 


3TF “ERROR 6” INSERTED BY 
sWRHEAD SUBROUTINE THEN HEADER 
sGAP GOTNG ON DISK IS WRONG. 


sWORD NO. GIVES WHICH OF 
STHE HEADER GAP WORDS 
SARE WRONG. FOR EXAMPLE? 


SWORD WO 1 = FIRST HEADER 
2 GAP wORD 
3BAD WORD IS WHAT IS COING OW orst 


sTF PERROR 6" INSERTED BY 

SWRHEAD SUBROUTINE THEN LAST 
sMEADER GAP BYTE OR HEADER 

sSYNC BYTE GOING OW DISK IS WRONG. 


sWORD WO = 5 

3BAD DATA IS WHAT IS GOING 

308 DIS®, RIGHT BYTF IS HEADER 
sCAP O BYTE, LEFT BYTE ITS HEADER 
3GaP SYWC. 


SARE ANY ERRORS DETECTED 


swRITF THE DATA C29 
Fodenar COMMAND NO. OF ATA 


33P0P STACK INTO FPS 
33P0P STACK INTO P4 
33POP STACK INTO 93 
33P0P STACK INTO F2 
33POP STACK INTO Pi 
33PO0P STACK INTO RO 


cu 


7 
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DZRIGALP11  29-MAR-76 00:00 DISK SIMULATION 

10490 

10481 3 3 RRARAARAARARAARAAAATAKAKRAARARARARARAAARARARARARAAARATAAARAARASTARARAAAAAAARAE 
10482 3*WRITE HEADER 

10483 3 3 SRTARARAKRARKAARROKRAARARHARAAREARARARERARAEARARAGARASASAARAeaeeeaeeaeeen 
10484 

10485 

10486 

10487 

10488 

10489 o*RO = MAINT.REC. 

10490 3*R1 = SIMULATED DISK 

10491 3*R2 = BYTE COUNT 

10492 3*R3 = WRITE WORD 

10492 g*°R5 = WORD COUNT . 

10494 

10495 

10496 

10497 052420 000000 SCYL: 0 ; 

10498 052422 000000 SSECTR: 0 3 

10499 052424 000000 SKEY1: 0 ; 

10500 052426 000000 SKEY2: 0 ’ 

10501 052430 000000 scrc: 0 ’ 

10502 

10503 

10504 052432 012137 052420 WRHEAD: MOV (R1)*, QRSCYL 

10505 052436 012137 052422 MOV (R1)*, @@SSECTR 

10506 052442 012137 052424 MoV (R1)¢, @@SFEY 

10507 052446 012137 052426 MOV (R1)*, @#SFEY2 

10509 052452 012137 052430 MOV (R1 +, @#SCRC 

10509 052456 010146 MOV R1,-(SP) )3PUSH R1 OW STACK 

10510 052460 012701 051020 MOV #SECGAP,R1 sSIMULATED DISK INDICATOR 
10511 052464 013700 001660 MOV @#RHMR, RO pRO NOW HAS MAINT. REG. ADDR. 
10512 052470 012710 000001 MOV #0MD, eRO pSET DIAG. “ODE IN RHR 

10513 052474 012705 000002 MOV #2,R5 3WORD COUNTER 

10514 052500 052710 000010 BIS #MSTCK,ARO 3SET SECTOR FOR FIRST BYTE 
10515 052504 012710 000013 1$: MOV #MSTCKIMCLKIDMD,@PO3SFT SECTOR, CLOCK, DIAG. MUDE, RESET INDEX 
10516 052510 032710 000040 BIT #MUR, ARO sCHECK WRITE BIT IN MAINT. REG. 
10517 052514 001403 BFQ 2$ 

10518 052516 000261 SEC gSET CARRY 

10519 052520 006002 ROR R3 sMOVE ONE FORWARD 

10520 052522 000402 BR 3$ ; 

10521 052524 000241 2$: cLC sCLEA® CARRY 

19522 052526 006003 ROR R3 s¥OVE ZERO FORWARD 

10523 052530 012710 000001 35: MOV #DMD, RO sCLEAR CLOCK, SECTOR 

10524 052534 012702 000007 MOV #7,R2 sPYTE COUNTER 

10525 052540 052710 000002 4$: BIS #MCLK,@RO 3SET CLOCK 

10526 052544 032710 000040 BIT #¥WR, ARO sCHECK WRITE RIT IN MAINT.REG. 
10527 052550 001403 BEQ 9$ pPRANCH IF ZERO 

10528 052552 000261 SEC 3SET CARRY 

10529 052554 006003 ROR R3 s¥OVE ONE FORWARD 

10530 052556 000402 Be 6$ 

10531 052560 000241 5$3 cLC 

10532 052562 006003 ROR k3 

10533 052564 012710 000001 6$: MOV #DMD, ARO PSST DIAG. MODE AGAIN IN PHMR 
10534 052570 005302 DEC k2 


10535 052572 001362 : BNE 4s 


MNDEC-11-DZRJG-A, RP04/5/6 DSKLS 


O7ZRIGA.PiIl 


10536 
10537 
10538 
10539 
10540 
10541 
10542 
10543 
10544 
10545 
10546 
10547 
10548 
10549 
10550 
10551 
10552 
10553 
10554 
10555 
10556 
10557 
10558 
10559 
10560 
10561 
10*62 
10563 
10564 
10565 
10566 
10567 
10568 
10569 
10570 
10571 
10572 
10573 
10574 
10575 
10576 
10677 
10578 
10579 
10580 
10561 
10532 
10583 
10584 
10585 
10586 
10587 
10588 
10589 
10590 
10591 


052574 
052576 


052600 
052602 
052604 
052606 
052614 
052620 
052624 
052632 


052636 
052642 
052650 
052654 
052660 
052662 
052666 
052672 
052700 
052706 


052710 
052712 


052714 
052720 
052722 


052726 
052732 
052736 
052740 
052746 
052754 
052760 
052766 


052770 
052774 
053000 
053006 
053012 
053016 
053020 


053022 
053026 
053032 


29-MAR=-76 00:00 


005305 
001342 


010321 
005703 
001414 
012737 
005037 
010337 
012737 
000137 


012702 
012737 
004737 
0613721 
001413 
160237 
005037 
013737 
012737 
000554 


005302 
001353 


005737 
001147 
004737 


013711 
023721 
001414 
012737 
013/37 
014137 
012737 
000524 


012702 
012703 
012737 
004737 
013711 
022321 
001412 


160237 
014337 
014137 


000001 
001124 
001126 
104006 
053240 


000022 
000024 
050346 
050344 


047320 
001124 
050344 
104006 


002026 
050346 


050344 
047302 


000024 
047302 
001126 
104006 


000004 
052420 
000005 
050346 
050344 


047320 
001124 
001126 


047320 


052350 


047320 


001126 
052350 


DISK SIMULATION 


7$3 
10$: 


1152 
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DEC R5 
BNE i$ sCONTINUE 
Tst R3 
BEQ 7$ 
MoV #1, @#ERWORD 
CLR e#S$CODAT 
MOV R3,@8SBD0AT 
MOV #104006, @#SEGPER 
JP @#175 SBRANCH QUT — 
MOV #18.,R2 sCOUNT NO. OF SECTOR GAP 
MoV #20. ,R#ERWORD sCOUNT TO GIVE ERROR WORD 
JSR PC, @BURITE sURITE SECTOR GAP 
—3 a sSTORE SECTOR GAP WOkD 
Q 
SUB R2,@@ERWORD 3TF WOT GET ERROR WORD WO. 
CLR e@#SCDDAT 26000 woRD 
MOV Q@#UWORD, OFSPDDATZBAD WORD 
MOV #104006, @#SEGPER;STORE “ERROR 6" IN SEGPER 
BR 17$ SBRAWCH OUT —— 
DEC Re SHAVE 18 WORDS OF ZEROS BEEN WRITTEN ? 
BNE 10$ 31Ff wot DO SO 


047320 
001124 


052352 


047320 


1252 
13$: 


s*AT THIS POINT THE SECTOR FOUND FLOP SHOULD 
3*BE HIGH. SO THAT THE HEADER SYNC BYTE CAN BE GIVEN 


s*HOWEVER IN THE DRIVE TIMING ERROR TEST THE REST OF THE ROUTINE 
3*1S ABORTED - HEADER SYNC BYTE IS HOT CIVEN 


TST @eTESDTE 31S THIS A ORTVE TIMING ERROR 
BNE 17$ SPRANCH OUT IF YES 
JSR PC, @¢¥RITE sWRITE OWE SECTOR GAP 0 BYTE 
ZAND ONE SYNC. BYTE = 230 
mov @#uWORD,(R1)  3SAVE 0 BYTE AND SYNC BYTE 
cup @PRSYNC,(R1)¢ 31F SYNC. BYTE RIGHT 
BEQ 12$ 31F YES BRANCH 
MOV #20.,Q8ERWORD ;IF NOT GET READY FOR ERROR 
MOV @PRSYNC,@#SGDDAT;COOD WORD 
MOV ~(R1),38S8DDAT PAD WORD 
MOV #104006, @8FSYNERZTNSERT "ERROR 6" IN FSYNER 
Be 17§ JBRANCH QUT --------------------------) 
MOV #4,R2 ;FOUR HFADE® WORDS 
MOV #SCYL,R3 SPOINTER FO HEADER TABLE 
MOV #5, @#FRWORD ZERROR WORD WO SET 
JSR PC, @#WRITE SWRITE 4 HEADER WORDS 
MOV @PKWORD,(P1) | (3STORE WRITTEN WORD 
CMP (P3)¢,(R1)* 31S IT RIGHT? 
BEQ 14$ p1F GOOD CONTINUE 
31f NOT GET READY FOR PRINT 
suB R2,@#ERWORD #WORD NO 
Mov ~(R3),@9SGDDAT 3GOOD DATA 
MOV -(R1),Q#SBDDAT 38AD DATA cy 


aA__m@ 


c\ 
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OZRIGA.P11 29-MAR=-76 00:00 DISK SIMULATION 
10592 053036 012737 104006 052354 MOV 
10593 053044 000475 BR 
10594 
10595 053046 005302 14S: DEC 
10596 053050 001353 BWE 
10597 053052 004737 050346 JSR 
10598 053056 013711 050344 MOV 
10599 053062 022137 052346 cup 
10600 053066 001414 BEQ 
10601 053070 014137 001126 MOV 
10602 053074 013737 052346 001124 uOV 
10603 053102 012737 000005 047320 MOV 
10604 053110 012737 104006 052356 MOV 
10605 053116 000450 BR 
10606 
10607 053120 012702 000005 20S: MOV 
10608 053124 012737 000006 047320 15$: MoV 
10609 053132 004737 050346 JSR 
10610 053136 013721 050344 MOV 
10611 053142 001412 BEQ 
10612 053144 160237 047320 SUB 
10613 053150 005037 001124 CLR 
10614 053154 014137 001126 Mov 
10615 053160 012737 104006 052360 MOV 
10616 053166 000424 BR 
10617 
10618 053170 005302 16S: DEC 
10619 053172 001354 BWE 
10620 053174 004737 050346 JSR 
10621 053200 013711 050344 “OV 
10622 053204 023721 047302 cup 
10623 053210 001413 BEQ 
10624 053212 012737 000005 047220 MOV 
10625 053220 014137 001126 MOV 
10626 053224 013737 047302 001124 MOV 
rated 053232 012737 104006 052362 MOV 
1062° 
10629 053240 1752 
10630 053240 012601 MOV 
10631 
10632 053242 000201 RTS 
10633 
10634 
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#104006, QfERHEAD; INSERT “ERROP 6° 
17 $ ZBRA NCH ouT Beemer se ne enor smasres owe eeen) 


R2 SARE 4 HEADER WORDS DONE? 
13$ 31 aor DO THEM 
PC, REWRITE sWRITE CRC 


@SUWORD,(P1) #STORE cae 
CR1)¢,@8GCRC sCOMPARE GOOD CRC 
20$ sBRANCH IF GOOD 
-(R1),B#SBDDATA 3840 CRC WRITTEN 
@FGCRC,RESGDDAT ;GOOD CRC 

#5, @#ERWORD ZERROR WORD WO 
elastase ZTMSERT ERROR 6 


#5,P2 3"O OF HEADER GAP 
#6, @#ERWORD JERROR WORD WO SET 
PC, QEURITE SWRITE HEADER GAP 
@FUWORD,(P1)*¢ ;STORE 

16$ 31F GOOD BRANCH 
R2, @#ERWORD sERROR WORD NO 
@FSGDDAT 26000 DATA 


-(R1),Q8SPDDAT ;RAD DATA 
#104006, @#ERHDGP;STORE “ERROR 6” 


R2 3ARF S HEADER GAP ZEROS DONE 
15$ 3TF NOT BRANCH 

PC, Q#URITE 
@#WWORD,(PR1) 
@#RSYNC,(RID@ 
17$ 


#5, @#ERWORD 
~(R1), a#SBODAT 
@ERSYNC, @RSCDDAT 
#104006, @FHDESYN 


(SP )¢,R1 33POP STACK INTO Pi 
R1 
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OZRIGA.P1I1 29-MAR-76 00:00 DISK SIMULATION 

1063* 

10636 

10637 

10638 

10639 

10640 

10641 pp eMMeeeeeerearenansenaanearaneneeanareeenanaeenaneesenenenenenee 
1064? 3*SEARCH SECTOR 

10643 FP eM MAMeeLeeeaaeeerearenaaneAenKeraReraneneenenenensenanaeenenene 
10644 

10645 

10646 

10647 

10648 

10649 

10650 3* RO=RHMR ADDRESS 

10651 3* R1=PASSED APGUMENT (SECTOP SEARCHFD FOR) 

10652 3* R2=CLOCK COUNT (PER BYTE) 

10652 * R3=SECTOR COUNTER FROM PI 

10654 3* RS=BYTES PER WORD COUNT 

10655 3*BEBORE INDEX IS GIVEN TWO SECTOP CLOCKS ARE GIVEN TO RESET 
10656 s*SECTOR PULSE IN CASE IT IS SET 

10657 2*AT PEGINNING OF EACH SECTOR ONE SECTOR CLOCF HAS TO RISE 
10658 s*BEFORE CLOCK THEN EVERY EIGHT CLOCKS OWE SECTOR CLOCK IS 
10659 s*IDENTICAL WITH CLOCK 

10660 S*NUMBERING THE SECTOR CLOCKS AS FOLLOWS 

10661 s*THE SECTOR CLOCK UNDER INDEX - 0 

10662 3*THE WEXT - 1 

1066? s*THE NEXT =- 2 

10664 s*ETC. 

10665 s*THEN THE LAST SECTOR CLOCK IN OWE SECTOR HAS NUMBER - 608 
10666 s*THE WEXT SECTOR THEN HAS 608 SECTOR CLOCKS 

10667 d*THE WEXT SECTOR THEN HAS ANOTHER 60° SECTOR CLOCKS 

10668 3*AND SO ON 

10669 

10670 

10671 

10672 053244 000000 SECTR: 0 sSECTOR SEARCHED FOR 

10673 

10674 053746 012137 053244 SEARCH: MOV (R1)*, @#SECTR 3SAVE SECTOR SEARCHED FOR 
16675 053252 010046 Mov RO,-(SP) 37PUSH RO ON STACF 

10676 053254 010146 MOV R1,-(SP) 33PUSH R1 ON STACK 

10677 053256 010246 mcV R2,-(SP) 33PUSH R82 ON STACK 

1067® 053260 010346 MOV R3,-(SP) 3;PUSH R3 ON STACK 

10679 053262 010446 MOV R4,-(SP) 33PUS4 R4 OW STACK 

10680 053264 010546 MOV R5,-(SP) 33PUSH RS ON STACK 

10681 053266 013700 001660 MOV @#RHMR, RO _ FNOW RO HAS MAINTENANCE REG. ADR. 
10682 053272 013703 053244 MOV @#SECTR,R3 sSECTOR COUNTER 

10683 053276 012710 000001 MOV #OMD, @RO ZSET DIAGNOSTIC MODE 

10684 053302 052710 000010 BIs #MSTCK, @RO sSET SECTOR CLOCK 

10685 053306 042710 000010 BIC @MSTCFK, @RO sCLEAR SECTOR CLOCK 

10686 053312 052710 000010 BIS @MSTCF, @2C sSET SECTOR CLOCK 

10637 053316 042710 000010 BIC @MSTCK, @RO sCLFAR SECTOR CLOCK 

10688 sTHE ABOVE TWO SECTOR CLUCKS ARE CIVEN FOR 
10689 sRESETING SFCTOP PULSE 

10690 3IN CASE IT STARTS SET GY 
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DZRIGA.P11 


10691 
10692 
10693 
10694 
10695 
10696 
10697 
10698 
10699 
10700 
10701 
10702 
10703 
10704 
10705 
10706 
10707 
10708 
10709 
10710 
10711 
10712 
10713 
10714 
10715 
10716 
10717 
10718 
10719 
10720 
10721 
10722 
10723 
10724 
10725 
10726 
10727 
10728 
10729 
10730 
10731 
10732 
10733 
10734 
10735 
10736 
10737 
10738 
10739 
10740 
10741 
10742 
10743 
10744 
10745 
10746 


053322 
053326 
053332 
053334 


053336 
053342 
053346 
053352 
053356 
053360 
053364 
053370 
053374 
053400 
053402 
053404 
053410 
053412 


053414 
053420 
053424 
053430 
053434 
053440 
053444 
053450 
053452 
053454 
053456 
053460 
053462 
053464 
053470 
053474 
053476 


053500 
053500 
053502 
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052710 
012710 
005703 
001461 


012702 
012705 
052710 
052710 
000402 
052710 
042710 
052710 
042710 
005302 
001372 
012702 
005305 
001362 


012701 
012705 
012702 
052710 
042710 
052710 
042710 
005302 
001372 
005305 
001362 
005301 
001356 
052710 
042710 
005303 
001317 


012605 
012604 


000014 
000001 


000010 
000002 
000010 
000002 


000012 
000012 
000002 
000002 


000007 


000457 
000002 
000007 
000012 
000012 
000002 
000002 


000010 
000010 


BIS @MINXEMSTCK,@RO ;SET INDEX AND SECTOR CLOCK 

“ov #OMD, e@RO sRESET INDEX AND SECTOR CLOCK 
Tst R3 3IF SECTOR REQUIRED JUMP OUT 
BEQ 7$ SPRANCH OF SECTOR ZERO REQUIRED 


3*NOW THE 304 WORDS WILL START 


d*FOR FIRST BYTE SECTOR CLOCK WILL GO HIGH THEN CLOCK WILL CO HICH 
3*BOTH WILL COME DOWN TOGETHER THEN SEVEN CLOCKS WILL BE GIVER 
3*3POR SECOND BYTE AND ALL OTHER BYTES TILL HEXT SECTOR SECTOR CLOCK 
s*WILL BE IDENTICAL WITH ONE CLOCK 


7$3 


3*OWE WORD ONLY 


wov t Led R2 sBYTE COUNTER 

MOV #2, RS sBYTES PER WORD 

BIS aMSTCK, @RO sSET SECTOR CLOCK 

BIS @™CLK,@RO sSET CLOCK 

BR 3$ Z@RAMCH TO CLEAR SECTOK AWD CLOCK 
BIS OMSTCKIMCLE,@RO ZSET SECTOR AND CLOCK 

BIC @MSTCKEIMCLK,@RO ;CLEAR SECTOR AND CLOCK 

BIS @MCLK, @RO sSET CLOCK 

BIC @MCLK, @P0 sCLEAR CLOCK 

DEC R2 -SBYTE COUNTER 

BWE 8$ sBRANCH IP BYTE NOT COMPLETE 
uov a7, R2 sSETUP FOR SECOND BYTE 

DEC RS 31S WORD COMPLETE? 

BWE 2s sPRANCH IP NOT COMPLETE 


3TO GIVE SECTOR CLOCK AWD CLOCK 


3*NOW 303 WORDS ARE LEFT AND ALL ARE IDENTICAL 


MOV #303., R1 sWORDS PER SECTOR COUNTER 

MOV #2, RS sBYTES PER WORD COUNTER 

MOV a7, 2 sBYTE COUNTER (CLOCK COUNTER) 

BIS @MSTCREIMCLK,@RO JSET SECTOR CLOCK AND CLOCK 

BIC @MSTCFEIMCLK, @PO ;CLEAR SECTOR CLOCK AND CLOCK 

BIS @MCLK, @RO sSET CLOCK 

BIC @¥CLK, @RO0 sRESET CLOCK 

DEC R2 31S BYTE COMPLETE? 

BNE 6$ sBRANCH IP WOT COMPLETE 

DEC RS 31S BORD COMPLETE? 

BWE 5$ sB8RARCH IF BOT 

DEC Ri 31S SECTOR COMPLETE 

BNE 4s s8RANCH IF NOT 

BIS aMSTCK,@RO sSET SECTOR 

BIC OMSTCK, ARO sCLEAR SECTOR 

DEC k3 31S REQUIRED WC OF SECTORS COMPLETE 
BNE 1$ sPRANCH IF NOT 

MOV (SP) @,R5 33P0P STACK INTO FS HY 
MoV (SP)e,R4 33POP STACK INTO R4 
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OZRJIGA.P11 


10747 
10748 
10749 
10750 
10751 
10752 
10753 
10754 
10755 
10756 
10757 
10758 
10759 


10760 - 


10761 
1076? 
10763 
10764 
10765 
10766 
10767 
10768 
10769 
10770 
10771 
10772 
10773 
10774 
10775 
16776 
10777 
10778 
10779 
10780 
10761 
10782 
107863 
10784 
10785 
10786 
10787 
10768 


053504 
053506 
053510 
053512 
053514 


053516 
053520 


053522 
053526 
053532 
053534 
053540 
053542 
053550 


053554 
05 3560 
053564 
053570 
053572 
053574 
053600 
053602 
053606 
053612 
653616 
053622 
053624 
053626 
053626 
053630 


012603 
012602 
012601 
012600 
000201 


012137 
012137 
010146 
005737 
001403 
012737 
012702 


012703 
012337 
004737 
005302 
001372 
005737 
001012 
005037 
012702 
012337 
004737 
005302 
001372 


012601 
000201 


053516 
053520 


002024 


177777 
000402 


051116 
050110 
050114 


002024 


045234 
000017 
050110 
050114 


045234 


DISK SIMULATION 


MoV 
MoV 
mov 
MoV 
RTS 
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(SP )¢,R7 
(SP)¢,R2 
(SP)e,R1 
(SP)*,R0 
R1 


33POP STACK IWTO R3 
33POP STACK INTO P2 
33POP STACK INTO Pl 
33P0P STACK I®TO RO 


PP TAMAAAAAAAAAAEAAAHARAORAAAAAAAAARAERERAAAEAORHRERARERARAERAAAAAERS 


3*READ ONE SECTOR OF DATA 


FP SMAAAAARAAAAAAAARHAEAAAAARAAARAHAAHSAHEAAAEHARAHHAKEHAEEHHESERs 


RNOS 0 
RCOMs 0 


REDATA: MOV 
MOV 
mov 
tst 
BEQ 
MOV 

1$: MoV 


MOV 
2$: MOV 
JSR 
DEC 
BNE 
Ttst 
BNE 
CLR 
MOV 
3$% MOV 
JSR 
DEC 
BNE 
45: 
mov 
RTS 


CR1)¢, @@RNO 
CP1)¢,@#RCOM 
R1,-(SP) 
@#TSECC 

is 
#-1,@8TSECCG 
#2586.,R? 


#DISK,R3 
(R3)¢, @8WORD 
PC, @BREAD 

R2 

28 

@FTSECC 


4s 

@#TSECCG 
#15.,2 
(R3)*, @#WORD 
PC, @#READ 

R2 

3$ 


(SP)¢,2&1 
R1 


g¥O. OF WORDS READ 
SEXTRA STORAGE 


sSAVE WO. OF WORDS ONLY FOR INFORMATION 


SEXTRA WORD OWLY FOR INFORMATION 
33PUSH Fl ON STACK 

31S THIS AM ECC TEST 

sBRANCH IF NO 

sTHESE BITS ARE TO GENERATE ECC 
3256 WORDS PER SECTOR 

sPLUS 2 ECC WORDS 

sPOINTE TO DISK STIMULATION 
JREADY TO READ CONTENTS 

3 READ 

31S 256 WORDS DONE? 

31F WOT BRANCH 

gIS TRIS AW ECC TEST 

sPRANCH OUT IF YES 

37NO MORE ECC BITS ARE TO BE GENERATED 
ZONE DATA GAP, 14 TOLERANCE GAP 
sREADY TO READ CORTENTS OF WORD 
3PEAD 

sCOUNT 

sSRANCH IF 14 NOT DONE 


33POP STACK INTO P1 
sRETURN 


— 


+4 
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10789 

10790 

10791 053632 RPVECTs 

10792 053632 104401 053640 TYPE 265$ s3TYPE ASCIZ STRING 

10793 053636 000421 BR 64$ 33GET OVER THE ASCIZ 

10794 9365S: .ASCIZ /UNEXPECTED RPO4 INTERRUPT @ PC = / 

10795 053702 64S: 

10796 053702 104402 tveoc sTYPE FROW PC 

10797 053704 012777 053632 125714 MoV #RPVECT, @RPVEC SRESTORE TRAP RPO4 VECTOR 


10798 053712 000000 HALT sCHANCE TO CONTINUE 
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10799 
10800 
10801 
10902 
10803 
10804 
10805 
10806 
10807 
10808 
10809 
10810 
10811 
10812 
10813 
10814 
10815 
10616 
10817 
10818 
10819 
10820 
10821 
10822 
10823 
10824 
10825 
10826 
10827 
10828 
10829 
10830 
10331 
1083? 
10833 
10834 
10835 
10836 
10837 
10838 
10839 
10840 
10841 
10842 
10843 
10644 
10845 
10846 
10847 
10848 
10849 
10850 
10851 
10852 
10853 
10854 


053714 
053714 
053716 
053722 


053726 


053732 
053736 
053736 
053744 


053746 


053750 
053754 
053762 
053766 
053772 
053774 
053776 
054002 
054004 
054004 
054012 
054014 
054022 
054024 
054030 
054032 
054049 
054042 
054050 
054052 
054060 
054062 
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104407 
005037 
005037 


005037 


005037 


032777 
001111 


000416 


013746 
012737 
005737 
012637 
000463 
022626 
012637 
000423 


032777 
001404 
127737 
001462 
105737 
001421 
123737 
101015 
032777 
001404 
013737 
000443 
105037 


047314 
002024 


045234 


002026 
040000 


000004 
053774 
177060 
000004 


000004 


000400 
125120 
001103 
001115 
001000 
001110 
001103 


125174 


000004 


125126 
001102 


001103 
125070 
001106 
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eS8TTL SCOPE HANDLER ROUTINE 


33 XIX 


s*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
3*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
3*AND LOAD THE ERROP FLAG (SERFLG) INTO DISPLAY<15306> 

s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


sBGSRESTART OF CODE FOR THE XOR 
6$ 


3*SW14=1 
o*SW1lilz1 
3*Sw09=1 
2*5vu0821 
3*CALL 
3* SCOPE 
S$SCOPE: 
CKSWR 
CLR 
CLR 
CLR 
CLR 
1$3 
1$: BIT 
BWE 
$KTSTR: BR 
MoV 
MOV 
Tst 
MOV 
wR 
5$3 cup 
HOY 
BR 
6SS7RRRRSEND OF 
BIT 
BEQ 
cupso 
BEQ 
252 TSTB 
BEQ 
cues 
BHI 
BIT 
BEQ 
7$3 MOV 
BR 
452 CLRB 


LOOP ON TEST 


IWHIBIT ITERATIONS 


LOOP ON ERROR 


LOOP OW TEST IN SWR<7:0> 
33SCOPE=10T 


@#eNOSYNC 
@#TSECC 


@*eTSECCG 


@fTESDTE 


@BITL4, ASUR 
SOVER 


QPERRVEC,-( SP) 
85S, @#ERRVEC 
@#177060 
(SP), @8EPRVEC 
$SVLAD 

(SP )#, (SP )o 
(SP )*, @#ERRVEC 
78 


22176s57 FOR CHANGE IN SOFT-SUP 

sCLEAR FLAG FOR HEADER ERROR COMMANDS 
sCLFAR FLAG FOR ECC TEST 

sWHEN =177777 IT IS AW ECC TEST 

sWHFM =0 IT IS NOT AW ECC TEST 


SEVEN IW AN ECC TPST EVERY CLOCK 
31S MOT TO GCEWERATE ECC 

3TF =177777 GEWERATE ECC 

31F =0 DO MOT GENERATE ECC 
sDRIVE TIMING ERROR TEST 


33LO0P ON PRESENT TEST? 

a3VES IF S¥l4=1 

TESTER S#SEE 

331F RUNNING ON THE “XOR® TESTER CHANGE 
SSTHIS INSTRUCTION TO aA "NOP™ (NOP=240) 
33SAVE THE CONTENTS OF THE ERPOR VECTOR 
33SET FOR TIMEOUT 

S3TIME OUT ON XOR? 

s3RESTORE THE ERROR VECTOR 

33G0 TO THE NEXT TEST 

s3CLEAR THE STACK AFTER A TIME OUT 
SsRESTORE THE ERROR VECTUR 

33LOGP ON THE PRESENT TEST 


CODE FOR THE XOR TESTERGESEE 


#BITOS, ASUR 
2$ 
@SUR,STSTNM 
SOVER 
SERPLG 


3$ 
SERMAX,SERFLG 
3$ 
#BITO9,RSWR 
4$ 
SLPERR,SLPADR 
$OVER 

SERFLG 


#3LO00P ON SPEC. TEST? 

336P TF NO 

330N THE RIGHT TEST? SWUR<730> 
338R IF YES 

33HAS AN ERROR OCCURRED? 

336R TF NO 

33MAX. ERRORS FOR THIS TEST OCCURRED? 
33BR IF NO 

33L00P ON ERROR? 

33BR TF wo 

33SET LOOP ADDRESS TO LAST SCOPE 


33ZERO THE ERROR FLAG 





X4 
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10855 054066 005037 001212 CLR $TIMES 33CLEAR THE WUMBER OF ITERATIONS TO MAKE 
10856 054072 000415 BR 1$ sSESCAPE TO THE NEXT TEST 

10857 054074 032777 004000 125036 3$: BIT #8IT11,eSWR SsIMHIBIT ITERATIONS? 

10858 054102 001011 BWE 1$ 336R TF YES 

10659 054104 005737 001100 Ttst SPASS 331P FIRST PASS OF PROGRAM 

10860 054110 001406 BEQ 18 22 IWHISIT ITERATIONS 

10961 054112 005237 001104 rnc $Icnt dsINCREMENT ITERATION COUNT 

10862 054116 023737 001212 001104 cup STIMES,SICNT 33CHECK THE NUMBER OF ITERATIONS MADE 
10863 054124 002021 BGE SOVER 338R TF MORE ITERATION REQUIRED 

10864 054126 012737 000001 001104 1$: “OV #1,SICNT SSREINITIALIZE THE ITERATION COUNTER 
10865 054134 013737 054204 001212 “ov SMXCNT,STIMES  }33SET NUMBER OF ITERATIONS TO DO 
10866 054142 105237 001102 $SVLAD: IWCB STSTNM 3sCOUNT TEST HUMBERS 

108667 054146 011637 001106 MOV (SP),SLPADR 33SAVE SCOPE LOOP ADDRESS 

10868 054152 011637 001110 MoV (SP),S$LPERR 33SAVE ERROR LOOP ADDRESS 

10869 054156 005037 001714 CUR SESCAPE 33CLEAR THE ESCAPE FROM ERROR ADORESS 
10670 054162 112737 000001 001115 MOVP #1,SERMAX 33O0NLY ALLOW ONE(1) ERROR OW NEXT TEST 
10871 054170 013777 001102 124744 SOVER: MOV STSTHM,ADISPLAY 3;DISPLAY TEST NUMBER 

10872 054176 013716 001106 Mov SLPADR, (SP) s3FUDCE RETURN ADDRESS 

10873 054202 000002 RTI S3FIKES PS 


10874 054204 000004 SMXCNT: 4 33MAX. NUMBER OF ITERATIONS 
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10875 eSBTTL CONVERT BINARY TO DECIMAL AND TYPE POUTINE 

10877 Pp tM Aeaeneneranaaeneeeeanaeeneasenanaenenaeenenenseenanecetenenen 
10878 s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY WUMBER TO A S-DIGIT 
10879 s*SIGNED DECIMAL (ASCII) WUMBER AND TYPE IT. DEPENDING OW WHETHER THE 
10880 S*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGH WILL BE TYPED 
10881 s*BEFORE THE FIRST OICIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
10882 3*REPLACED WITH SPACES. 

10883 3*CALL? F 

10884 * MoV NUM, -(SP) 39PUT THE BINARY RUMBER ON THE STACK 
10885 ad TYPDS 3360 TO THE ROUTINE 

10886 

10887 054206 $TYPDS: 

1086" 054206 010046 MOV RO,-( SP) 33PUSH RO OW STACK 

10889 054210 010146 MOV R1,-(SP) 33PUSH P1 ON STACK 

10890 054212 010246 MoV R2,-(SP) 33PUSH R2 ON STACK 

10891 054214 010346 MoV R3,-( SP) 33PUSH R3 ON STACK 

10892 054216 010546 MOV RS,-(SP) 33PUSH RS OW STACK 

10893 054220 012746 020200 MOV #20200,-(SP) 33SET BLANK SWITCH AND SICH 

10894 054224 016605 000020 MOV 20(SP),R5 33GET THE INPUT BUMBER 

10895 054230 100004 BPL 1$ 33B8R Te IwPUT IS POS. 

10896 054232 005405 NEG RS Z3MAKE THE BINARY NUMBER POS. 

10897 054234 112766 000055 000001 MOVB &°-,1 (SP) 33MAKE THE ASCII WUMBER NEC. 

10898 054242 005000 1$3 CLR RO 33ZERO THE CONSTANTS INDEX 

10899 054244 012703 054422 MOV #SDBLE,R3 33SETUP THE OUTPUT POINTER 

10900 054250 112723 000040 MOVB #° 7CR3)¢ 33SET THE FIRST CHARACTER TO A BLANK 
10901 054254 005002 2$3 CLR Kk? 33CLEAR THE BCD NUMBER 

10902 054256 016001 054412 MOV SODTBL(RO),R1 39GET THE CONSTANT 

10903 054262 160105 3$3 SUB R1,R5 33PORW THIS BCD DIGIT 

10904 054264 002402 BLT 4s 33BR IF DONE 

10905 054266 005202 Inc R2 SSINCREASE THE BCD DICIT BY 1 

10906 054270 000774 BP 3$ 

10907 054272 060105 4S: ADD R1,P5 33ADD BACK THE CONSTANT 

10908 054274 005702 Tst R2 s3CHECK IF BCD DIGIT=0 

10909 054776 001002 BNE 9$ SsFALL THROUGH IF 6 

10910 054300 105716 TSTP (SP) 3STILL DOING LEADING 0°S? 

10911 054302 100407 BMI 7$ 33BR IF YES 

10912 054304 106316 S$: ASLB (SP) 33MS0? 

10913 054306 103003 Bcc 6$ 33BP TF NO 

10914 .054310 116663 000001 177777 uovs 1(SP),~-1(R3) 33VES--SET THE SICN 

10915 054316 052702 000060 65: BIS #°0,R2 33MAKE THE 8CD DIGIT ASCII 

10916 054322 052702 000040 752 BIS #° ,R2 33MAKE TT A SPACE IF WOT ALREADY A DIGIT 
10917 054326 110223 MOvA R2,(R3)¢ 33PUT THIS CHARACTER IM THE OUTPUT BUFFER 
10918. 054330 005720 TST (RO)*+ 33JUST INCREMENTING 

10919 054332 020027 000010 chP RO, #10 S3CHECK THE TABLE INDEX 

10920 054336 002746 BLT 2$ 2260 DO THE NEXT DIGIT 

10921 054340 003002 BGT 8$ 3360 TO EXIT 

10922 054342 010502 MOV RS,R2 33GET THE LSD 

10923 054344 000764 BR $ 33GO CHANCE TO ASCIT 

10924 054346 105726 8S: TSTB (SP)¢ 33WAS THE LSD THE FIRST NON-ZERO? 
10925 054350 100003 BPL 9$ 336P TF uO 

10926 054352 116663 177777 177776 Move ~“1(SP),-2(R3) 33YES--SET THE SIGN FOR TYPING 

10927 054360 105013 9$3 CLRA (R3) 33SET THE TERMINATOR 

10928 054362 012605 MOV (SP) ¢,R5 #3P0P STACK INTO PS 

10929 054364 012603 MOV (SP)¢,23 33POP STACK INTO ®3 my 
10930 054366 012602 MoV (SP)¢,R? 33POP STACK INTO R2 





— — — — - 
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10931 
1093? 
19933 
10934 
10935 
19934 
10°37 
10938 
10939 
10346 
10941 


0©4770 
084372 
054374 
054400 
054406 
054410 
054412 
054414 
054416 
054420 
05442? 


29-¥Al-76 90209 


O12Ful 
012600 
104401 
01666€ 
012616 
000062 
073420 
00175¢ 
000144 
000012 
000004 


05442” 
090092 00004 
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CONVERT BINARY TU DECIMAL ARO TYPE POUTING 


S0TAL: 


SPSLKS 


RTi 


(SP) o,2) 
(SP) eo, 40 

2 SDALE 
2057) e 40 SP) 
(SP )e,¢SP) 


33P0e STACK I*TC #1 
33P0P STACK INTO 20 
33NQe TYPE THE TURBER 
ssADINST THE STACK 


SsRETURW TU USER 


AS 
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1094? 
10943 
10944 
10945 
10946 
10947 
10948 
10949 
10950 
10951 
1095? 
10953 
10954 
10955 
10956 
10957 
10958 
10959 
10960 
10961 
1096? 
10963 
10964 
10965 
10966 
10967 
10968 
10969 
10970 
10971 
1097? 
10973 
10974 
10975 
10976 
10977 
10978 
10979 
10960 
10981 
10962 
10983 
10984 
10965 
10986 
10987 
10968 
10999 
10990 
10991 
10992 
10993 
10994 
10995 
10996 
10997 


054432 
054436 
054440 
054442 
054444 
054446 
054452 
054454 
054456 
054460 
054462 
054466 
054470 
054474 
054476 
054502 
054504 
054506 
054510 
054512 
054516 
054520 
054524 
054530 
054532 


054536 
054542 
054544 
054550 
054554 


054556 
054562 
054566 
054574 
054576 


29-MAR-76 00:00 


105737 
100002 
000000 
000407 
010046 
017600 
112046 
001005 
005726 
012600 
062716 
000002 
122716 
001430 
122716 
001006 
005726 
104401 
001223 
105037 
000755 
004737 
123726 
001350 
013746 


105366 
002770 
004737 
105337 
000770 


112716 
004737 
132737 
001372 
005726 


001157 


000002 


000002 
000011 
000200 


054646 


05460? 
001156 


001154 
000001 


054602 
054646 


000040 
054602 
000007 054646 
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eSB8TTL TYPE ROUTINE 


FP MMAARAAARAAAAAAAARAARAAARAAARARAALARARARARERAAAAAAAARORAAAAERAAAALEES 


s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE “UST TERMINATE WITH A 0 BYTE. 

d*THE ROUTIWE WILL INSERT A NUMBER OF NULL CHARACTERS APTER A LINE FEED. 

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

$PILLC CONTAINS THE CHARACTER TO FILL APTER. 


3*1) USTNG A TRAP INSTRUCTION 


3*NOTEI: 

s*NOTE2: 

p*NOTE 32 

3° 

3*CALL? 

had TYPE 

3*OR 

3* TYPE 

ad MESADR 

3* 

$TYPE: fTSTB 
BPL 
HALT 
BR 

1S: MOV 
MoV 

2$3 MOVs 
BNE 
Tst 

60S: MoV 

3$3 ado 
RTI 

4s: cvee 
BEQ 
CMPR 
BNE 
Tst 
TYPE 
$CRLF 
CLRB 
BR 

5$: JSR 

6$: CMPR 
BNE 
MOV 

7$3 DECB 
BLT 
JSR 
DECB 
BR 


sHORIZONTAL TAB 


9$: uove 

9$3 JSR 
Brte 
BNE 
Tst 


@MESADR 


STPFLG 
1s 


3$ 

RO,-( SP) 
@2(SP),R0 
CRO), -(SP) 
4$ 

(SP) 

(SP )+,RO0 
#2, (SP) 


HT, (SP) 
88 

#CRLF,( SP) 
5$ 

(SP) 


SCHARCNT 
2s 


PC, $TYPEC 
SFILLC,(SP)¢ 
2s 
$NULL, -( SP) 


1(SP) 

6$ 

PC, STYPEC 
SCHARCNT 
7$ 


PPOCESSOR 


#° ,(SP) 
PC, STYPEC 
#7,SCHARCNT 
9$ 

(SP De 
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33MESADR TS FIRST ADDRESS OF AM ASCIZ STRING 


33I1S THERE A TERMINAL? 

33BR IF YES 

33HALT RERE IF WO TERMINAL 

3 3LEAVE 

33SAVE RO 

33GET ADDRESS OF ASCIZ STRING 

33PUSH CHARACTER TO BE TYPED ONTO STACK 
33BP If IT ISN°T THE TERMINATOR 

331F TERMINATOR POP IT OFF THE STACK 
33RESTORE RO 

ZPADJUST RETURN PC 

33 RETURN 

33BRANCH TF <HT> 


s3BRANCH TF KOT <CRLF> 


33P0P <CRO<LF> EQUIV 
s3TYPE A CR AND LF 


33CLEAR CHAPACTER COUNT 

33GET WEXT CHARACTER 

3360 TYPE THIS CHARACTER 

331S IT TIME FOR FILLER CHAPS.? 
331F NO GO GET WEFT CHAR. 

33GET # OF FILLER CHARS. WEEDED 
33AND THE WULL CHAR. 

#3D0ES A WULL NEED TO BE TYPED? 
338R TF NO--GO POP THE NULL OFF OF STACK 
33GO TYPE A NULL 

3300 NOT COUNT AS A COUNT 
33LOOP 


ssREPLACE TAB BITH SPACE 
s3TYPFE & SPACE 

s3BRANCH TF NOT AT 

33TAB STOP 

33POP SPACE OFF STACK 


RS 





MWDEC-11-DZRJG-A, RPO04/5/6 DSKLS CONTROLLER TST-PT 1 


OZRIGA.P11 


10998 
10999 
11000 
11001 
11002 
11003 
11004 
11005 
11006 
11007 
11008 
11009 
11010 
11011 


054600 
054602 
054606 
054610 
054616 
054624 
054626 
054632 
054634 
054642 
054644 
054646 
054650 


29-MAR=-76 00:00 


000724 
105777 
100375 
116677 
122766 
001003 
105037 
000406 
122766 
001402 
105227 
000000 
000207 


124342 


000002 
000015 


05 4646 
000012 


TYPE ROUTINE 


BR 
$TYPEC: TSTB 

BPL 
124334 Movs 
000002 CMPB 
BWE 
CURB 

BR 
000002 1S: CPB 
BEQ 


Iwce 
SCHARCHT: WORD 
STYPEX: RTS 
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2$ 

@esTPs 
$TYPEC 
2(SP),@S$TPB 
@CR,2( SP) 


1$ 
SCHARCUT 
STYPEX 
@LF,2(SP) 
S$TYPEX 
(PC )¢ 

Q 

ec 


339GET WEXT CHARACTER 
39WUAIT UNTIL PRINTER IS READY 


39LOAD CHAR TO BE TYPED INTO DATA REG. 
33TS CHARACTER A CARRTACE RETURN? 
s3BRANCH IF NO 

33VES--CLEAR CHARACTER COUNT 

ssEFIT 

331S CHARACTER A LINE FEED? 

s3BRANCH IF YES 

s3COUNT THE CHARACTER 

sSCHARACTER COURT STORAGE 
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11012 eSSTTL TTY INPUT ROUTINE 
—— XXXXXX 
11015 eEWABL LSB 
11016 054652 000000 S$TKCNT: .WORD 0 S3NUMPER OF ITEMS IN QUEUE 
11017 054654 000000 $TKQIN: .WORD 0 doINPOT POINTER 
11018 054656 000000 STKQOUT: .WORD 0 s30UTPUT POINTER 
11019 054660 000011 STKQSRT: .BLKB 9. 33TTY KEYBOARD QUEUE 
11020 054671 STKQEND=. 
11021 054672 EVEN 
11022 
11023 3*TK INITIALIZE ROUTINE 
11024 S*THIS ROUTINE WILL INITIALIZE THE TTY FEYBOARD INPUT QUEUE 
11025 s*SETUP THE INTERRUPT VECTOR AND TUPN OW THE KEYBOARD INTERRUPT 
11026 3 
11027 s*CALLs 
11028 3* JSR PC, STRINT 
11029 2* RETURN 
11030 3 
11031 054672 005037 054652 STKINT: CLR STKCNT ssCLEAR COUNT OF ITEMS In QUEUE 
11032 054676 012737 054660 054654 MOV SSTKQSRT,STKQIN 33MOVE THE STARTING ADDRESS OF THE 
11033 054704 013737 054654 054656 MOV STKQIN,STKFQOUT ;3QUEVE INTO THE INPUT & OUTPUT POINTERS. 
11034 054712 012737 054742 000060 MoV SSTKSRU,@RTKVEC s, INITIALIZE THE KEYBOARD VECTOR 
11035 054720 012737 000200 000062 MOV #200, R8TKVEC*2 33"BR™ LEVEL 4 
11036 054726 005777 124214 Ttst es 76 226.EAR DOSE FLAG 
11037 054/32 012777 000100 124704 “OV #100,@STKS S3ERABLE TTY KEYBOARD INTERRUPT 
sree 054740 000207 RTS Pc s3RETURN TO CALLER 
1039 
11040 3*TK SERVICE ROUTINE 
11041 s*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
11042 #*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
11043 3*IT IN THE QUEUE. 
11044 s*IPF THE CHARACTER TS A “CONTROL-C™ (°C) STKINT IS CALLED AND 
— 3*UPON RETURN EXIT IS MADE TO THE “CONTROL-C® RESTART ADDRESS (OPERSEL) 
1104 3 
11047 054742 117746 124200 S$TKSRV: MOVB @STKB,-(SP) s3PICKUP THE CHARACTER 
11048 054746 042716 177600 BIC #°C177,(SP) dsSTRIP THE JUNK 
11049 054752 021627 000003 cup (SP),#3 331S If A CONTROL C? 
11050 054756 001007 BNE 1$ s3BRANCR TF NO 
11051 054760 104401 055731 TYPE @SCRTLC 33TYPE A CONTROL-C (°C) 
11052 054764 004737 054672 JSR PC, STFINT s3INIT THE TEYBOARD 
11053 054770 005726 Tst (SP)¢ s3CLEAN UP STACK 
11054 054772 000137 041360 JMP OPERSEL s3CONTROL C RESTART 
11055 054776 021627 000007 1$3 CMP (SP), #7 331S TT A CONTROL G? 
11056 055002 001004 BNE 2$ s7BRAWCH TF KO 
11057 055004 022737 000176 001140 cup #SWPREG, SUR 331S SOFT-SWR SELECTED? 
1105% 055012 001500 BEQ 6$ 32600 TO SWR CHANGE 
11059 
11060 055014 25: 
11061 055014 022737 000011 054652 cup #9-,STKCNT 331S THE QUEUE FULL? 
11062 055022 001004 BNE 3$ 3;BRANCH IF WO 
11063 055024 104401 001216 TYPE 7 SBFLL 33RTNG THE TTY RELL 
11064 055030 005726 Tst (SP) 33CLEAN CHARACTER OFF OF STACK 
11065 055032 000451 BR 5$ 326117 
11066 055034 021627 000023 3$3 cup (SP),#2? 3931S TT A CONTROL-S? 
11067 055040 001021 BWE 32$ #3BPANCH TF NO 


ds 
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11068 055042 005077 124076 CLR ests s:DISABLE TTY KEYROARD INTERRUPTS 

11069 055046 005726 tsT (SP) 33CLEAN CHAR OFF STACK 

11070 055050 105777 124070 31$: TST? aestKs 339W01T FOP A CHAR 

11071 055054 100375 BPL 31$ 33LOOP UNTIL ITS THERE 

11072 055056 117746 124064 MOVB @STKB,-(SP) 33GET TRE CHARACTER 

11073 055062 042716 177600 BIC #°C177, (SP) 39MAKE TT 7-BIT ASCII 

11074 055066 022627 000021 cee (SP)*, $21 3318S If A CONTROL-Q? 

11075 055072 001366 BNE 31$ 23BRANCH TF WO 

11076 055074 012777 000100 124042 MOV #100, @STKS PPREEWAPLE TTY KEYBOARD INTERRUPTS 

11077 055102 000002 RTI 3 RETORW 

11078 055104 005237 054652 32$: IWC Srxcur 33COUNT THIS CHARACTER 

11079 055110 021627 000140 cup (SP), #140 3391S IT UPPER CASE? 

11080 055114 002405 BLT 4g ,7BRAWCH TF YES 

11081 055116 021627 000175 cve (SP), #175 3318 IT A SPECIAL CHAR? < 
11082 055122 003002 BCT 4s 33BRANCH IF YES 

11083 055124 042716 000040 BIC #40,(SP) P9MAKE TT UPPER CASE 

11084 055130 112677 177520 4S: MOVB (SP)¢,@STFQIN 33AND PUT IT IW QUEUE « 
11085 055134 005237 054654 IWC STKOIN 33UPDATE THE POINTER 

11086 055140 023727 054654 054671 cup STKGIN,@S$TKQEND 33GO OFF THE END? 

11087 055146 001003 BNE 5$ 33BRAWCH TF BO q 
11088 055150 012737 054660 054654 MoV BSTRQSRT,STKQIN 3;RES®T THE POINTER 

11089 055156 000002 5$: RTI 3 7RETURN p 
rte PPTATAMAAAAAAARAAAHAROHRHAHHAAAAAHAHAAROAAARAAEHEARAAEHERAAORAAHAAAEE 

11092 3*SOFTWARE SWITCH REGISTEP CHANGE ROUTINE. 

11093 2*ROUTINE IS ENTERED ROW THE TRAP HANDLER, AND WILL q 
11094 S*SSKVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH PEGISTER TRAP 

11095 3*CALL WHEN OPERATING IN TTY INTERRUPT wODE. 

11096 055160 022737 000176 01140 $CKSWR: CMP @SWREG, SUP 3731S THE SOPT-SWR SELECTED € 
11097 055166 001124 BNE _15$ 33EN1T TF NOT | 
11098 055170 105777 123750 TSTB 4s aQSTKS 3391S & CHAR WAITING? 

11099 055174 100121 BPL 15$ 331° NOT, EXIT q 
11100 055176 117746 123744 MOVE =-_ @S TFB, -( SP) 33¥ES 

11101 055202 042716 177600 BIC #°C177, (SP) 39MAKE IT 7-RIT ASCII 

1110? 055206 021627 000007 cve (SP), #7 3318 IT A CONTROL-G? q 
11103 055212 001300 BNE 2$ 331% NOT, PUT IT IN THE TTY QUEvE 

11104 33AND EXIT 

11105 q 
11106 pp TAM ereneeaaagraragaessenaaaaeegagaenenagenanesagesenanesaenaanenner 

11107 3*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 

1110” s*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A q 
11109 3*CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 

11110 055214 123727 001134 000001 6$: CMPB) Ss SAUTOB, #1 37A°E WE PUNNING TB AUTO-"ODE? 

11111 055222 001674 BEQ 2§ 338RANCH IF YES q 
11112 055224 005726 TST (SP) 33CLEAR CONTROL-G OFF STACK 

11113 055226 004737 054672 JSR PC, STRINT 33PLUSH THE TTY INPUT QUEUE 

11114 055232 605077 123706 CLR @sTKS };DTSABLE TTY KEYPOARD INTERRUPTS q 
11115 055236 112737 000001 001135 MOVB «© #1, SENTAG 33SFT INTERRUPT MODE INDICATOR 

11116 

11117 055244 104401 055743 TYPE ,SCNTLS 33ECHO THE CONTROL-G (°C) q 
11118 055250 104401 055750 SGTSWR: TYPE ,SMSWR 33TVPF CURRENT CONTENTS 

11119 055254 013746 000176 MOV SWREG,-(SP) 33SAVE SWREG FOR TYPEOUT 

11120 055260 104402 TYPOC 3360 TYPE--OCTAL ASCIICALL DIGITS) < 
11121 055262 104401 055761 TYPE ,SMNEW 33PRO¥PT FOO NEW SWP 

11122 055266 005046 19$: CLR -(SP) 33CLEAR COUNTER S 

11123 055270 005046 CLR -(SP) 33TME NPM SHR € q 
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11124 055272 105777 123646 1$: TSTe «= @STKS S3CHAR THERE? 

11125 055276 100375 BPL 18 331f NOT TRY AGAIN 

11126 

11127 055300 117746 123642 MOVP —s«a@S TB, -('SP) #3PTCR UP CHAR 

11128 055304 042716 177600 Bic #°C177, (SP) 33MAKE IT 7-BIT ASCII 

ill 

11130 055310 021627 000003 coe (SP),83 3918 IT A CONTROL-C? 

11131 055314 001015 BNE 9§ 338PANCH TF WOT 

11132 055316 104401 055731 TYPE ,$CNTLC 33¥ES, ECHO CONTROL-C (°C) 
11133 055322 062706 000006 ADD #6, SP 33CLEAN UP STACK 

11134 055326 123727 001135 000001 CMPE 0s SINT AG, #1 3;REENAPLE TTY KEYBOARD IWTERKUPTS? 
11135 055334 001003 BNE 8s 338PANCH TF BO 

11136 055336 012777 000100 123600 MOV #100, 8STKS S3ALLOW TTY KEYBOARD INTERRUPTS 
11137 055344 000137 041360 8S: J¥P OPER SFL $3CONTROL-C RESTART 

111 

11139 

11140 055350 021627 000025 9$: cp (SP),825 3318 IT & CONTROL-U? 

11141 055354 001005 BNE 10$ — TY KOT 

11142 055356 104401 055736 TYPE ,SCNTLU 33VES, ®CHO CONTROL-U (°U) 
11143 055362 062706 000006 20$: add #6, SP 321GNORE PREVIOUS INPUT 

11144 055366 000737 BR 19§ 33LET°S TRY IT AGAIN 

11145 

11146 

11147 055370 021627 000015 10$: CMP (SP), #15 3318 IT A <CRD? 

1114® 055374 001022 BNE 16$ 33BRANCH IF NO 

11149 055376 005766 000004 757 4(sP) 33VES, IS I? THE FIRST CHAR? 
11150 055402 001403 BEQ 11s 33BRANCH TF YES 

11151 055404 016677 000002 123526 MOV 2(SP),@SWR 33SAVE NEW SUR 

11152 055412 062706 000006 11$: ADD 46,5? 3)CLEAR UP STACK 

11153 055416 104401 001223 145: TYPE =, SCRLF 33ECHO <CR> AND <LF> 

11154 055422 123727 001135 000001 CMPB 0 SIWTAG, #1 33RE-EWABLE TTY KBD INTERRUPTS? 
11155 055430 001003 BNE 15§ 338RANCH TF NOT 

11156 055432 012777 000100 123504 MOV #100,eSTKS 33RE-FWABLE TTY KED INTERRUPTS 
11157 055440 000002 15$: RTI 33RETORN 

11158 055442 004737 054602 165: JSR PC, $TYPEC 33ECRO CHAR 

11159 055446 021627 000060 CMP (SP), #60 33CHAR < 0? 

11160 055452 002420 BLT 185 33BRANCH IF YRS 

11161 055454 021627 000067 cup (SP),867 33CHAR > 7? 

1116? 055460 003015 act 185 S3BRANCH TF YES 

11153 055462 042726 000060 die #60,(SP)+ 33STRIP-OFF ASCII 

11164 055466 005766 000002 TSt 2(s°) 3318 THIS THE FIRST CHAR 

11165 055472 001403 BEQ 17$ 339RANCH IF YES 

11166 055474 006216 ASL (SP) 33NO, SHIFT PRESENT 

11167 055476 006316 ASL (SP) 33. CHAR OVER TO MAKE 

11168 055500 006316 ASL (SP) 33 ROOM FOR NEW ONE. 

11169 055502 005266 000002 17: INC 2(SP) 33KFEP COUNT OF CHAR 

11170 055506 056616 177776 BTSs -2(SP), (SP) S3SET IN NEW CHAR 

11171 055512 000667 BR 18 33G°T THE NEXT ONE 

11172 055514 104401 004222 185: TYPE ,SQUES 33TYPE ?<CR><LF> 

11173 055520 000720 aR 30$ S3SIMULAT® CONTROL-U 

11174 .DSABL LSB 

11175 

11176 

11177 Zp eMMeennenanaanaeasecananrarsasagagaenganareeseneneneneneeaneenees 
11178 }*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY — 
11179 S*CALL? F 
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11190 3* RDCRR 33GET A CHARACTER FROM THE QUEUE 
11181 3* RETURN HERE S3CHARACTER IS ON THE STACK 

11182 3* 33WITH PARITY BIT STRIPPED OFF 
11183 3 

11184 

11185 055522 011646 SROCHR: MOV (SP),-(SP) 33PUSH DOWN THE PC AND 

11186 055524 016666 000004 900002 MOV 4(SP),2(SP) 33THE PS 

11187 055532 005066 000004 CLR 4(SP) 33GET READY FOR A CHARACTER 

11188 055536 005046 CLR -(SP) s3PUT WEW PS OW STACK 

11189 055540 012746 055546 nov #64$,-( SP) 33PUT MEW PC ON STACK 

11190 055544 000002 RTI 33PO0P WEW PC AND PS 

11191 055546 64S: 

1119? 055546 005737 05465? 152 Tst S$TKCNT S3WATT OW A CHARACTER 

11193 055552 001775 BEQ i$ 

11194 055554 005337 054652 DEC STKCNT 33DECREWENT THE COUNTER 

11195 055560 117766 177072 000004 MOVE @STKQOUT,4(SP) 326ET OWE CHARACTER 

11196 055566 005237 054636 INC $TKQourT 33UPOATE THE POINTER 

11197 055572 023727 054656 054671 cup STKQOUT, SSTKQEND 33010 IT GO OFF CF THE END? 
11198 055600 001003 BNE 2s 33BRANCH IF NO 

11199 055602 012737 054660 054656 MOV ESTKQSRT,STKQOUT Z;RESET THE POINTER 

11200 055610 000002 2s: RTI 33RETOURW 

11201 ZF TAAAARAAAAARAARAAAARAAAAAAARAAAARERAAAAAARARAHOARAAAAORAASHORAAAAES 
112702 3*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 

11203 3*CALLs: 

11204 3° ROLIN 33 INPUT A STRING FROM THE TTY 
11205 9* RETURN HERE S23 ADDRESS OF FIRST CHARACTER WILL BE OW THE STACK 
11706 3* 22 TERMINATOR WILL BF A BYTE OF ALL 0°S 
11207 

1120% 055612 010346 SROLIW: MOV R3,-(SP) 33SAVE R3 

11209 055614 012703 055720 152 MoV SSTTVYIN,R3 33GFT ADDRESS 

11210 055620 022703 055731 2s: CMP #STTYING9.,R3 23BUFFER FULL? 

11211 055624 101405 BLOS 4s 338P TF YES 

11212 055626 104410 ROCHR 3360 READ OWE CHARACTER FROM THE TTY 
11213 055630 112613 move (SP)¢,(R3) 33GET CHARACTER 

11214 055632 122713 000177 10S: Cmpe #177,(R3) 331S IT A RUBOUT 

11215 055636 001003 BME 3$ 33SKIP IF NOT 

11216 055640 104401 001222 4S: TYPE 7SQUES a3TYPE A °?° 

11217 055644 000763 BR 1$ 33CLEAR THE BUFFER AND LOOP 

11218 055646 111337 055716 3$3 MOVB (R3),9$ 33ECHO THE CHARACTER 

11219 055652 104401 055716 TYPE 298 

11220 055656 122722 000015 CMPB #15,¢(P3)¢ 33CHECK FOR RETURN 

11221 055662 001356 BNE 2$ 33LOOP IF NOT RETURN 

11222 055664 105063 177777 CLRB -1(R3) Z3CLEAR RETURN (THE 15) 

11223 055670 104401 001224 TYPE @SLlf S3TVYPE A LIWE FEED 

11224 055674 012603 MOV (SP)¢,R3 33RESTORE R3 

11225 055676 011646 MOV (SP),-(SP) 32ADJUST THE STACK AND PUT ADDRESS OF THE 
11226 055700 016666 000004 000002 MoV 4(SP),2(SP) 33 FIRST ASCII CHARACTER OW IT 
11227 055706 012766 055720 000004 MOV aSTTYIN,4(SP) 

11228 055714 000002 RTI 33RETURN 

11229 055716 000 9$3 BYTE 0 33STOPACE FOR ASCII CHAR. TO TYPE 
11230 055717 000 eBYTE 0 33 TERMINATOR 

11231 055720 000011 STTYINS .BLEB 9. PSRESERVE 9. BYTES FOR TIY INPUT 
11232 055731 136 006503 000012 SCNTLC: .ASCIZ /°C/<15><12> 33;CONTROL "Cc® 

11233 055736 052536 005015 000 SCNTLUs .ASCIZ /*U/¢15><12> s3CONTROL “"U" 

11234 055743 136 006507 000012 SCNTLG: .ASCIZ /°G/<15><12> s3CONTROL “c* 


11235 055750 005015 053523 020122 $SWR: .ASCIZ <€15><12>/SaR = / 
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11236 055756 020075 000 

11237 055761 040 047040 053505 SMNEWs .ASCIZ / WEW = / 

11238 055766 036440 000040 

11239 3PROM THE TTY 


HS 
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OZRIGA.P11 29-YMAR-76 00300 READ AN OCTAL NUMBER FROM THE 

11240 eSB8TTL READ AN OCTAL NUMBER FROM THE TTY 

ua? RRATARAARAKAARARARAARAAAARAARARAERAARRARARARAALARAAERAARARARGARRERARASAAAE 
11243 s*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
11244 s*CHANGE IT TO BINARY. 

11245 3*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
11246 s*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS PEAD A "7" WILL BE TYPED 
11247 s*FOLLOWED BY A CARRIAGE PETURN-LINE FEED. THE COMPLETE NUMBER MUST 
11249 3*THEN SE RETYPED. THE INPUT IS TERWINATED BY TYPING A CARRIACE RETURN. 
11249 3*CALLs: 

11250 3* ROOCT 33READ AM OCTAL NUMBER 

11251 _ RETURN HERE 33LOW ORDER BITS ARE OW TOP OF THE STACK 
ped 3* s3HIGH ORDER BITS APE IN SHIOCT 

5 

11254 055772 011646 $RDOCT: MOV (SP ),-(SP) 33PROVIDE SPACE FOR THE 

11255 055774 016666 000004 000002 MOV 4(SP),2(SP) 33 INPUT NUMBER 

11256 056002 010046 MoV RO,-(SP) 33PUSH RO ON STACK 

11257 056004 010146 MoV R1,-(SP) 37PUSA R1 OW STACK 

11258 056006 010246 MOV R2,-(SP) 33PUSH R2 ON STACK 

11259 056010 104411 1$: RDLIW 33READ AN ASCIZ LIKE 

11260 056012 012600 Mov (SP )¢,R0 33GET ADDRESS OF 1ST CHARACTER 
11261 056014 010037 056120 MOV RO,5$ 33AND SAVE IT 

1126” 056020 005001 CLR R1 33CLEAR DATA WORD 

11263 056022 005002 CLR R2 

11264 056024 112046 2$3 nove CRO )#,-(SP) d3PICRUP THIS CHARACTER 

11765 056026 001420 BEQ 3$ 331F ZERO GET OUT 

11266 056030 122716 000060 cupa #°0,(SP) 33MAKE SURE THIS CHARACTER 

11267 056034 003026 BGT 4s 331S AN OCTAL DIGIT 

11268 056036 122716 000067 CMPR #°7, (SP) 

11769 056042 002423 BLT 4s 

11270 056044 006301 ASL R1 37*2 

11271 056046 006102 ROL R2 

11272 056050 006301 ASL R1 33*4 

11272 056052 006102 ROL R? 

11274 056054 006301 ASL Ri 37*8 

11275 056056 006102 ROL R2 

11276 056060 042716 177770 BIC #°C7, (SP) 33STRIP THE ASCII JUNK 

11277 056064 062601 400 (SP)*,R1 33A00 IN THIS DIGIT 

11278 056066 000756 BR 2$ 3;LOCcP 

11279 056070 005726 3$3 TST (SP)¢ 33CLEAN TERMINATOR FROM STACK 
11280 056072 010166 000012 MOV R1,12(¢SP) 33SAVE THE RESULT 

11281 056076 010237 056130 Mov R2,SHIOCT 

11282 056102 012602 MoV (SP)¢,R2 33POP STACK INTO R2 

11283 056104 012601 MOV (SP)¢,R1 33P0P STACK INTO Pl 

11234 056106 012600 MOV (SP)+#,k0 33POP STACK INTO RO 

11285 056110 000002 RTI 7; RETURW 

112866 056112 005726 45: Tst (SP) 33;CLEAN PARTIAL FROM STACK 

11287 056114 105010 CLRE (RO) 33SET A TERMINATOR 

11288 056116 104401 TYPE 33TYPE UP THRU THE BAD CHAR. 
11289 056120 000000 S$: WORD 0 

11290 056122 104401 001222 TYPE 7$GUES 337?" @CR" & "LEY 

11291 056126 000730 BR 1$ 33TRY AGAIN 

11292 056130 000000 $HIOCT: .WORD 0 33HTGH ORDER PITS GO 4ERE 
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11293 @SBTTL ERROR HANDLER ROUTINE 

34 

11295 sper eenanrensrarananeanensseneeeeaneararenrenentenneteneneneenere 
11296 s*THIS ROUTINE WILL INCREMENT THE EPROR FLAG AND THE ERPOR COUNT, 
11297 s*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
11298 3*AND GO TO SERRTYP OW ERROR 

11299 s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

11300 ; 3*SW15=1 HALT ON ERROR 

11301 3*SW13=1 INHISTT ERROR TYPEOUTS 

11302 3*SW10=1 BELL ON ERROR 

11303 3*Sw09=1 LOOP OW ERROR 

11304 3*CALL 

38 3* ERROR WN ssERROR=EVT AWD N=ERROR ITEM NUMBER 

11307 056132 SERROP: 

11308 056132 104407 CKSWR s3TEST FOR CHANGE IN SOFT-SWR 
11309 056134 012737 177777 002006 MOV #-1,Q8ERFLGS sSET ERROR FLAG 

11310 056142 REGSAI1: 

11311 056142 105237 001103 75: INCB SERFLG 33SET THE ERROR FLAG 

11312 056146 001775 BEQ 7$ 3300N°T LET TRE FLAG CO TO ZERO 
11313 056150 013777 001102 122704 Mov STSTNM,@DISPLAY »3DISPLAY TEST NUMBER AND ERROR FLAC 
11314 056156 032777 002000 122754 BIT #BIT10,°%SWR 33BELL ON ERROR? 

11315 056164 001402 BEQ 1$ 3300 = SKIP 

11316 056166 104401 001216 TYPE @ SBELL 33RTNG BELL 

11317 056172 005237 001112 1$: INC SERTTL 33COUNT THE KUMBEP CF ERRORS 
11318 056176 011637 001116 MOV (SP),SERRPC 33GET ADDRESS OF ERROR TWSTRUCTION 
11319 056202 162737 000002 001116 SUB #2,SERRPC 

11320 056210 117737 122702 001114 MOVB @SERRPC,SITEMB 33STRIP AND SAVE THE ERROR ITEM CODE 
11321 056216 032777 020000 122714 BIT #BIT13,aSWR 33SFIP TYPECUT If SET 

11322 056224 001004 BNE 20$ 33SKIP TYPEOUTS 

11323 056226 004737 056300 JSR PC, SERRTYP 33G0 TO USER ERROR ROUTINE 

11324 056237 104401 001223 TYPE 7 SCPRLF 

11325 056236 20S: 

11326 056236 005777 122676 2$: TST esuPr 33HALT ON ERROR 

11327 056242 100002 BPL 3$ s3SKIP TF CONTINUE 

1132R 056744 000000 HALT s3HALT ON ERRORE 

11329 056246 104407 CK SWR s3TEST FOR CHANGE IN SOFT-SUR 
11330 056250 032777 001000 122662 3$: BIT #B1T09,@SWR 33LOOP ON ERROR SWITCH SET? 

11331 056256 001402 BEQ 4s 33BR TF NO 

11332 056260 013716 001110 MOV $LPERP, (SP) s3FUCGE RETURN FOR LOOPTNC 

11333 056264 005737 001214 4S: Tst SESCAPE 33CRECK FOR AN ESCAPE ADDRESS 
11334 056270 001402 BEQ S$ 33BR IF NOME 

11335 056272 013716 001214 MOV SESCAPE, (SP) SSFUDGE RETURN ADDRESS FUR ESCAPE 
11336 056276 5$: 


11337 056276 000002 RTI 37RETURN 
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11338 
11339 
11340 
11341 
1134? 
11343 
11344 
11345 
11346 
11347 
11348 
11349 
11350 
11351 
11352 
1135? 
11354 
11355 
11356 
11357 
11358 
11359 
11360 
11361 
1136? 
11363 
11364 
11365 
11366 
11367 
11368 
11369 
11370 
11371 
11372 
11373 
11374 
11375 
11376 
11377 
11378 
11379 
11380 
11361 
11382 
11383 
11384 
11385 
11386 
11387 
113868 
11389 
11390 
11391 
11392 
11393 


056300 
056300 
056304 
056306 
056310 
056314 


056316 


056322 
056324 
056726 
056330 
056332 
056334 
056336 
056342 
056346 
056350 
056352 
056354 
056360 
056364 
056366 
056370 
056372 
056376 
056400 
056402 
056404 
056406 
056410 
056412 
056414 
056416 
056420 
056420 
056422 
056424 
056426 
056430 
056434 


056436 
056440 
056442 
056446 
056450 
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104401 
010046 
005000 
153700 
001004 


013746 


104402 
000445 
005300 
006300 
006300 
006300 
062700 
012037 
001404 
104401 
000000 
104401 
012037 
001464 
104401 
000000 
104401 
010146 
012001 
001415 
012000 
105720 
001003 
013146 
104402 
000402 


013146 
104405 
005711 
001403 
104401 
000764 


012601 
012600 
104401 
000207 
020040 
056454 


001223 


001114 


001116 


001226 
056352 


001223 
056370 


001223 


056450 


001223 
000 
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eSBTTL ERROR MESSAGE TYPEOUT ROUTINE 


—RRR 
s*THIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH 
S*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE® (SERRTS), 
3*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYPs 


1$3 


2$3 
3$3 


TYPE 7 $CRLF 


MOV RO, -(SP) 
CLR RO 

BIse @SSITEMP,FO 
BNE 1s 

MOV SERRPC,-( SP) 
Tyeoc 

BR 10$ 

DEC RO 

ASL RO 

ASL RO 

ASL RO 

add #SERRTB,RO 
MoV (RO)¢,2$ 
BEQ 3$ 

TYPE 

e WORD 0 

TYPE a SCRLF 

MOV = =—s (ROO), 46 
BEQ 5$ 

TYPE 

e WORD 0 

TYPE a SCRLF 

MOV R1,-( SP) 
MOV CRO) e,Ra1 
BEQ. 9$ 

MOV (RO) *,RO 
TstTe (RO) 

BNE 7$ 

MOV @(R1)¢,-( SP) 
rvpoc 

BR 8s 

MOV @(R1)¢,-( SP) 
TYPDS 

Ttst CR1) 

BEQ 9$ 

TYPE ails 

Be 6$ 

MOV (SP)e,R1 
MOV (SP )¢,RO 
TYPE a SCRLF 

RTS PC 

eASCIZ Jf ff 

eo EVEN 





se*CARRTAGE RETURN" & “LINE FEED" 
s3SAVE RO 
s3PICKUP THE ITEM INDEX 


331F ITEM NUMBER IS ZERO, JUST 
s3TVYPE THE PC OF THE ERROR 

s3SAVE SERRPC FOR TYPEOUT 

s3ERBOR ADDRESS 

3360 TYPE--OCTAL ASCIICALL DIGITS) 
33GET OUT 

sPADJUST THE INDEX SO THAT IT #ILL 
33 WORE FOP THE FRROR TABLE 


33FOR™ TABLE POINTER 

s3PICKUP "ERROR MESSAGE" POINTER 
d3SKIP TYPEZEOUT IF NO POINTER 
SxTYPE THE "ERROR MESSAGE 
s3"ERROR MESSAGE" POINTER GOES HERE 
sI"°CARRIAGE RETURN™ & “LINE FEED® 
s3PICKUP “DATA HEADER” POINTER 
33SKIP TYPEOUT IF 0 

a3TYPE THE “DATA READER® 

s3*DATA HEADER® POINTER GOES VERE 
Se"CARRIAGE RETURN” & “LINE FEED® 
s3SAVE R1 

S3PICKUP “DATA TABLE® POINTER 

33BR TF WO DATA TO BSE TYPED 
s3PICFUP “DATA FOPMAT® POINTER 
s3"OCTAL™ OR “DECTMAL® 

33BR IP DECIMAL 

SSSAVE @(R1)¢ FOR TYPEOUT 

3360 TYPE--OCTAL ASCIICALL DIGITS) 


S3SAVE @(R1)¢ FOR TYPEOUT 

33G0 TYPE--DECIMAL ASCII WITH SIGH 
3371S THERE ANOTHER WUMBER? 

33B8P TF WO 

33TYPE TWO(?) SPACES 

33LO00P 


s3RESTORE R1 

33RESTORE RO 

SS"CARRIAGE RETURN” & “LINE FEED® 

37 RETURN 

33TWOC(2) SPACES uf 
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11394 
11395 
11396 
11397 
11398 
11399 
11400 
11401 
11402 
11403 
11404 
11405 
11406 
11407 
11408 
11409 
11410 
11411 
11412 
11413 
11414 
11415 
11416 
11417 
11418 
11419 
11420 
11421 
11422 
11423 
11424 
11425 
11426 
11427 
11428 
11429 
11430 
11431 
1143? 
11433 
11434 
11435 
11436 
11437 
11438 
11439 
11440 
11441 
11442 
11443 
11444 
11445 
11446 
11447 
11448 
11449 


056454 
056460 
056466 
056472 
056476 
056500 
056506 
056514 
056522 
056524 
056526 
056530 
056534 
056536 
056542 
056546 
056552 
056556 
056560 
056562 
056564 
056566 
056570 
056572 
056574 
056576 
056602 
056604 
056610 
056612 
056614 
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017646 
116637 
112637 
062716 
000406 
112737 
112737 
112737 
010346 
010446 
010546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
100016 
042703 
001002 
005704 
001403 


000000 
000001 
056701 
000002 


000001 


056791 
000006 
056700 


056677 
000012 


056700 
177770 


056677 


056677 
056701 
056676 


e SOTTL 


MACY11 30(1046) 
BINARY TO OCTAL (ASCII) AND TYPE 


O06-DEC-77 13:57 PACE 261 


BIWARY TO OCTAL (ASCII) AND TYPE 


Pp MMeReaneaeenasaneneeneanaeaeaeeeeareneneeeeneneneneneananeTete 

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BIMARY NUMBER TO A 6-DICIT 
S*OCTAL CASCIT) NUMBER AND TYPE IT. 

3*STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


3*CALL: 

3* MOV 
3* Tveos 
3* BYTE 
3* eBYTE 
3? 

3* 

3* 


NUM, -(SP) 


dsNUMBER TO BE TYPED 
33CALL POR TYPEOUT 
33N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
39M=1 OR O 
331=TYPE LEADING ZEROS 
3;0=SUPPRESS LEADING ZEROS 


3*STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
3*S$TYPOS OR $TYPOC 


3*CALL: 
»* MOV NUM, -(SP) 3>NUMPER TO BE TYPED 
* TYPON 33CALL FOR TYPEOUT 
; 
— —— HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3*CALL: 
3* MoV NUM, -( SP) 33NUMBER TO BE TYPED 
3* TYPOC 33CALL FOR TYPEOUT 
STYPOS: MOV @(SP),-(SP) 33PICFUP THE MODE 
MOVB 1(SP),SOFTLL #3LOAD ZERO FILL SWITCH 
move (SP)*,$OMODE*¢1 33NUMBER OF DIGITS TO TYPE 
aDdD #2,(SP) 33ADJUST RETURN ADDRESS 
BR $TYPON 
STYPOC: MOVE #1,SOFILL 33SET THE ZERO FILL SWITCH 
MOVB #6, SO¥ODE*1 ‘99SET FOR STX(6) DIGITS 
$TYPON: MOVB #5,SOCNT 33SET THE ITERATION COUNT 
MOV R3,-(SP) 33SAVE R3 
MOV R4,-(SP) PSAVE RG 
MOV RS,-( SP) 33SAVE RS 
— ——— 33GET THE NUMBER OF DIGITS TO TYPE 
NE 
ADD #6,R4 }>SUBTRACT IT FOR MAX. ALLOWED 
Move R4,S$OMODE 33SAVE IT FOR USE 
uove sorILL,R4 33GET THE ZERO FILL SWITCH 
MOV 12(SP),R5 P3PICKUP THE INPUT RUMBER 
CLR X dCLEAR THE OUTPUT WORD 
15: ROL RS 73;ROTATE MSR INTO *C® 
BP 3$ 3360 DO MSB 
25: ROL RS 33FOR THIS DIGIT 
ROL KS 
ROL RS 
MOV RS,R3 
3$3 ROL 3 39GET LSB OF THIS DIGIT 
DECB $OMODE 33TYPE THIS DIGIT? 
BPL 7$ 338R IF wO 
BIC #177770,R3 33GET RID OF JUNK 
BNE 4s s3TEST FOR 0 
TST R4 33 SUPPRESS THIS 0? 
BEG 5$ 338P If YES 


eae eee 
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11450 
11451 
11452 
11453 
11454 
11455 
11456 
11457 
11458 
11459 
11460 
11461 
11462 
11463 
11464 
11465 
11466 
11467 
11468 
11469 
11470 


056616 
056620 
056624 
056630 
056634 
056640 
056644 
056646 
056650 
056652 
056654 
056656 
056660 
056662 
056670 
056672 
056674 
056675 
056676 
056677 
056700 
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005204 
052703 
052703 
110337 
104401 
105337 
003347 
002402 
005204 
000744 
012605 
012604 


000060 
000040 
056674 
056674 
056676 


000002 000004 


BINARY TO OCTAL 
4S: 
5$% 


Inc 


7$3 


8S: 


SOCNT: .BYTE 
SOFILL: .BYTE 
SOMODE: .WOPD 
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(ASCII) AND TYPE 


(se dogRS 
(SP )o,R4 
(SP)¢,R3 


2¢SP),4(SP) 
(SP )*,(SP) 


3300N°T SUPPRESS ANYMORE 0°S 
33MAKE THIS DIGIT ASCII 
33MAKE ASCIT IF NOT ALREADY 
s3SAVE FOR TYPING 

3260 TYPE THIS DICIT 

33COUNT BY 1 

338R IF MORE TO 00 

33BP TF DONE 

s3INSURE LAST DIGIT ISN°T A BLANK 
3360 DO THE LAST DICIT 
seRESTORE R5 

SPRESTORE R4 

s3RESTORE R3 

33SET THE STACK FOR RETURNING 


33RF TURN 

s3STORAGE FOR ASCII DIGIT 
s3TERMINATOR FOR TYPE ROUTINE 
dSO0CTAL DIGIT COUNTER 

33ZERO FILL SWITCH 

33NUMBER OF DIGITS TO TYPE 
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11471 
1447> 
1147? 
11474 
132478 
12474 
11477 
11478 
11479 
11490 
11431 
1145? 
11433 
11454 
11485 
11436 
11487 
11488 
11469 
21490 
11491 
1149? 
114923 
11494 
11495 
11496 
11497 
11498 
11499 
11500 
11501 
11502 
11503 
11504 
11505 
11506 
11507 
11508 
11509 
11510 
11511 
11512 
11513 
11514 
11515 
11516 


956702 
056704 
056710 
056712 
056714 
056716 
056722 


056724 
056726 
056734 


056736 
056740 
056742 
056744 
056746 
056750 


056752 


056754 
056756 
056760 
050762 
056764 
056766 
056770 
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010046 
016600 
005740 
111000 
006300 
016000 
000200 


011646 
616666 
000002 


056724 
054432 
056500 
056454 
056514 
054706 


055250 


055160 
055522 
055612 
055772 
042516 
042570 
043106 


000092 


056736 


000004 000002 


TRA? DECODER 
eSaTtlL TPAP DECOPcR 


s*THIS COUTINE WILL PICYUP THE LuWc? PTE UF THE “TRAP” TROTROUCTICN 
s*AWC USE IT TO INDEX TYHOUGH THE TRA® FABLE FG® THE STARTING ADDRESS 
3°OF THE DESIRED ROUTINE. THEW USING THE ADPRESS OBTAINED IT WILL 
3°GO TU THAT POUTINE. 


STRAP: MTV RI,-(SP) F3SAVE BO 
MOV 20SP),R° 22651 TRAP ADPRESS 
tst -( RO) 33 BACKUP RY 2 
MOVE (PO),RO 33GET RIGHT BYTE OF TPAP 
ASL RO S3POSITION FOR ITADEXING 
“OV STRPAD(RO),80 dsIYDEX TO TABLE 
RTS ko 3260 TO R20UTINE 


d3THIS TS USE TO HAWILE THE “GETPRI™ YACRO 


STRAP2: MOV (SP),-(SP) s3MONVE THE PC DOWN 
MOV 4(SP),2(SP) 3,MOVF THE PSW DOWN 
RTI SSRESTORE THE PSa 


eS8TTL TRAP TABLE 


s*THIS TARLE CONTAINS THE STAPTING AODRESSES OF THE ROUTINES CALLED 
7*SY THE “TRAP INSTRUCTION. 


3 ROUTINE 

3 — — — eee 

$TRPAD: WORD $TRAP2 
$TYPE 33CALL=TYPE TRAP#1(104401) TTY TYPEUUT ROUTINE 
$TYPOC  33;CALL=TYPOC TRAP*2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
STYPOS ;;CALL=TYPOS TRAP*3(104403) TYPE OCTAL NUMBER (NO LFADING ZEROS) 
STYPON 3;CALL=TYPON TRAP *4(104404) TYPF OCTAL NUMBFR (AS PER LAST CALL) 
STYPDS 33CALL=TYPDS TRAP*¢S(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


SGTSWR ;;CALL=GTSWR TPAP*6(104406) GET SOFT-SWR SETTING 


SCKSWR 33;CALL=CKSwR TRAP*7(104407) TEST FUR CHANGE IN SOFT-SWR 
$RDCHR 3;CALL=ROCH® TRAP¢10(104410) TTY TYPEIN CHARACTER ROUTINE 
SRDLIN 73CALL=RDLIN TPAP#11(0104411) TTY TYPEIN STRING ROUTINE 
SRDOCT 33;CALL=RDOCT TRAP*12(104412) READ AN OCTAL NUMBER FROM TTY 
T.-SCOP 3;CALL=SCOP1 TPAP¢13(104413) MY LOCAL SCOPES 

CHECKT j33;CALL=CHECKD TPAP#14(104414) CHECK DVA,RDY,DPR,DRY 

WAIT.T  Z7CALL=WAT TRAP*15(104415) WAIT LOOP 


a a ae a a ef 
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11517 
11518 
11519 
11520 
11521 
11522 
11523 
11524 
11525 
11526 
11527 
11528 
11529 
11530 
11531 
11532 
11533 
11534 
11535 
11536 
11537 
11538 
11539 
11540 
11541 
11542 
11543 
11544 
11545 
11546 
11547 
11548 
11549 
11556 
11551 
11552 
11553 
11554 
11555 
11556 
11557 
11558 
11859 
11560 
11561 


056772 
057000 
057006 
057010 
057012 
057014 
057016 
057020 
057022 
057026 
057032 
057040 
057042 


057044 
057052 
057056 
057062 
057066 
057070 
057074 
057076 
057100 
057102 
057104 
057106 
057110 
057116 
057124 
057126 
057130 
057132 
057134 
057136 
057140 
057142 
057144 
057152 
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012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
017746 
010637 
012737 
000000 
000776 


012737 
013706 
005037 
005237 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104401 
057144 
012716 
004240 
000002 
000000 
000776 
000000 
005015 
000122 


057136 
000340 


122112 
057142 
057044 


057136 
057142 
057142 
057142 


122044 


056772 
000340 


047520 


000024 
0000 26 
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POWER DOWN AND UP ROUTINES 


eSB8TTL POWER DOWN AND UP ROUTINES 


PPTTAAAAKRAARARARARAARALATARAAARAAAAARAAARARHARAAAARARARARARRARLAEARAEE 


sPOWER DOWN ROUTINE 


SPWRONs MOV 
MoV 


SS ILLUP, @#PWRVEC 33SET FOR FAST UP 
#340, Q@#PUWRVECe2 33PRIO37 


000024 


000024 


000024 
0000 26 


042527 


RO,-(SP) 33PUSH RO ON STACK 
R1,-(SP) 33PUSH R1 ON STACK 
R2,-(SP) 39PUSH R2 ON STACK 
R3,-(SP) 33PUSH R3 ON STACF 
R4,-(SP) 33PUSH R4 ON STACK 
RS ,-(SP) 39PUSH RS ON STACK 
@SWR,-(SP) 33PUSH @SWR OW STACK 
SP, $ SAVR6 33SAVE SP 
SSPWURUP,@RPWRVEC 33SET UP VECTOR 

.2 33HANG UP 


PP TMARARRAKAAKAAHHKeRAAHAHARAAAAAAAAAKARAALeRAAeAReRAReRARenAeAAee 
sPOWER UP ROUTINE 


SPWRUP: MOV 
MOV 
CLR 
Inc 
BWE 
MOV 
MOV 
MOV 
MoV 
MOV 
MoV 
MOV 
MoV 
Mov 
TYPE 
WORD 
MOV 
WORD 
RTI 
HALT 
BR 
SSAVR63 0 
SPOWER: 


1$s 


SPWRMGs 
5PRAD: 
SILLVuP: 


SSILLUP,@#PWRVEC 33SET FOR FAST DOWN 


$SAVR6,SP 33GET SP 

SSAVRE6 $3WAIT LOOP FOR THE TTY 
SSAVR6 33WAIT POR THE IWC 

i$ 330F WORD 

(SP), @SUR 33PO0P STACK INTO @SWR 
(SP )e,R5 33POP STACK INTO RS 
(SP )e,R4 33POP STACK INTO R4 
CSP) ¢,R3 33PO0P STACK INTO R3 
(SP )e,R2 33POP STACK INTO P2 
(SP)¢,R1 33POP STACK IRTO R1 
(SP)¢,RO 33POP STACK INTO RO 


SSPURDN, @RPWRVEC 33SET UP THE POWER DOWN VECTOR 
#340, Q#PURVEC*2 33PRIOS7 
sREPORT THE POWER FAILURE 


SPOWER 3;POWER FAIL MESSAGE POINTER 
(PC )*, (SP) dSRESTART AT BEGIN 
BEGIN dsRESTAPT ADDRESS 
33 THE POWER UP SEQUENCE WAS STARTED 
222 33 BEFORE THE POWER DOWN WAS COMPLETE 


33PUT THE SP HERE 


eASCIZ <15>€12>"POWER™ 





< 
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11562 FRAARAAAARAAARARAEAAAAARAERARAAAARAARAAAAAAAAAAEAARAARERARHARARARAARAAAERAEe ( 
11563 3* 
11564 J*ERROR AND MESSAGE TABLE CONDIMENTS 
565 * 
u8 VV ( 
11567 
11568 
11°69 4 
11570 
11571 057154 051127 047117 020107 EM: eASCIZ /WRONG DATA IN READING OR WRITING HARDWARE REGISTERS 
11572 057162 040504 040524 044440 ' ( 


11573 057170 020116 042522 042101 
11574 057176 047111 020107 051117 
11575 057204 053440 044522 044524 ( 
11576 057212 043516 044040 051101 
11577 057220 053504 051101 020105 


11578 057226 042522 044507 052123 ( 
11579 057234 051105 000 

11580 057237 105 051122 051117 E&™2: eASCIZ /ERROR ON DATA COMMANDS 

11581 057244 047440 020116 042040 ( 


11582 057252 052101 020101 047503 
11593 057260 046515 047101 000104 
11584 057266 051105 047522 020122 EMé: eASCIZ /ERROR ON WRITE HEADER AND DATA/ ( 
11585 057274 047117 053440 044522 
11586 057302 042524 044040 040505 


11587 057310 042504 020122 047101 ( 
11568 057316 020104 040504 040524 

11589 057324 000 

11590 057325 103) 047117 051124 EmMlis: eASCIZ /CONTROLLER OF DRIVE STATUS/ ( 


11591 057332 046117 042514 020122 

1159? 057340 051117 042040 044522 

11593 057346 042526 051440 040524 ( 
11594 057354 052524 000123 

11595 057360 042522 044507 052123 £14: .ASCIZ /RECISTER FAILED/ 

11596 057366 051105 043040 044501 ( 
11597 057374 042514 000104 

11598 057400 050123 041505 043111 Fw1S5:  .ASCIZ /SPECIFIED REGISTER NON EXISTANT SO ABOPT/ 

11599 057406 042511 020104 042522 t 
11600 057414 044507 052123 051105 

11601 057422 047040 047117 042440 


11602 057430 044530 052123 047101 ( 
11603 057436 020124 047523 040440 
11604 057444 047502 05212? 000 
11605 057451 127 044501 020124 E™16:; eASCIZ /WAIT LOOP FATLED/ ( 


11606 057456 047514 050117 043040 
11607 057464 044501 042514 000104 
11608 057472 051127 052111 020105 EM17: .ASCIZ /WRITE CHECK FAILING/ ( 
11609 057500 044103 041505 020113 

11610 057506 040506 046111 047111 

11611 057514 000107 ( 
11612 057516 042522 044507 052123 E20: .ASCIZ /REGISTER FAILING/ 

11613 057524 051105 043040 044501 

11614 057532 044514 043516 000 ( 
11615 057537 111 052116 051105 EM21: .ASCIZ /INTERRUPT FAILING/ 

11616 057544 052522 052120 043040 

11617 057552 044501 044514 043516 ch 








MNDEC-11-DZRJG-A,RPO04/5/6 DSKLS CONTROLLER TST-PT 1 MACY11 30(1046) O6-DEC-77 13:57 PACE 266 
OZRIGA.P11 29-MAR-76 00:00 POWER DOWN AND UP ROUTINES { 


11618 057560 000 
11619 057561 105 051122 OS1117 EM22: .ASCII /ERROR ON DRIVES PRESENT -/<15><12> J 
11620 057566 047440 020116 051104 
11621 057574 053111 051505 050040 
11622 057602 042522 042523 052116 J 
11623 057610 026440 005015 

11624 057614 044124 020105 047125 eASCIE /THE UNIT NO’S FOUND BY SETTING RHAS USING RHER1/<15><12> 

11625 057622 052111 047040 023517 
11626 057630 020123 047506 047125 

11627 057636 020104 054502 051440 : 

11628 057644 052105 044524 043516 ‘ 
11629 057652 051040 040510 020123 

11630 057660 051525 047111 020107 





11631 057666 044122 051105 006461 ( 
11632 057674 012 

11633 057675 050 032124 020051 eASCIT /(T4) DO NOT AGREE WITH THE UNIT WO°S FOUND/<15><12> 

11634 057702 047504 047040 052117 J 


11635 057710 040440 051107 042505 
11636 057716 053440 052111 020110 
11637 057724 044124 020105 047125 ( 
11638 057732 052111 047040 023517 
11639 057740 020123 047506 047125 


11640 057746 006504 012 J 
11641 057751 102 020131 047514 eASCIET /BY LOOKING FOR °WEN* = O IW RHCS2 (BIT @12)/¢15><12><15><¢12> 

11642 057756 045517 047111 020107 

11643 057764 047506 020122 047047 ( 


11644 057772 042105 020047 020075 

11645 060000 020060 047111 051040 . 

11646 060006 041510 031123 024040 ( 
11647 060014 044502 020124 030443 

11648 060022 024462 005015 005015 

11649 060030 047516 042524 020072 eASCII /NOTE: ON DUAL PORT SYSTEM, A DRIVE ON OTHER PORT WILL /¢15><12> ( 
11650 060036 047117 042040 040525 

11651 060044 020114 047520 052122 

1165? 060052 051440 051531 042524 ( 
11653 060060 °026115 040440 042040 

11654 060066 044522 042526 047440 

11655 060074 020116 052117 042510 ( 
11656 060102 020122 047520 052122 

11657 060110 053440 046111 020114 


11658 060116 005015 ( 
11659 060120 047516 020124 044507 sASCII /NOT GIVE °NED°, 8UT WILL GIVE RHAS RESPONSES/<15><12> 

11660 060126 042526 023440 042516 ) 

11661 060134 023504 020054 052502 ( 


11662 060142 020124 044527 046114 

11663 060150 043440 053111 020105 

11664 060156 044122 051501 051040 ( 
11665 060164 051505 047520 051516 

11666 060172 051505 005015 


11667 060176 042510 041516 020105 eASCIZ /HENCE THERE WILL BE AN EXTRA DRIVE/ ( 
11668 060204 044124 051105 020105 
11669 060212 044527 046114 041040 
11670 060220 020105 047101 042440 ( 


11671 060226 052130 040522 042040 
11672 060234 044522 042526 000 : | 
11673 060241 114 047517 020113 E24: eASCIZ /LOOK AHEAD REGISTER AT THE BEGINNING OF SECTOR IS IN EPRRCR/ DL 





ee 


MNDEC-11 -DZRJG-A, RPO4/5/6 — CONTROLLER TST-PT 1 
OZRIGA.P11 


11674 
11675 
11676 
11677 
11678 
11679 
11680 
11681 
11682 
11683 
11664 
11685 
116866 
11687 
11688 
11689 
11690 
11691 
11692 
11693 
11694 
11695 
11696 
11697 
11698 
11699 
11700 
11701 
11702 
11703 
11704 
11705 
11706 
11707 
11708 
11709 
11710 
11711 
11712 
11713 
11714 
11715 
11716 
11717 
11719 
11719 
11720 
11721 
1172? 
11723 
11724 
11725 
11726 
11727 
11728 
11729 


060246 
060254 
060262 
060270 
060276 
060304 
060312 
060320 
060326 
060334 
060342 
060350 
060356 
060264 
060372 
060374 
060402 
060410 
060416 
060424 
060432 
060440 
060446 
060454 
060462 
060470 
060476 
060504 
060512 
060516 
060524 
060532 
060540 
060546 
060552 
060560 
060566 
060574 
060662 
060610 
060616 
060624 
060632 
060640 
060641 
060646 
060654 
060662 
060670 
060676 
060704 
060712 
060720 
060726 
060734 
060742 


29-MAR-76 


044101 
042522 
051105 
044124 
044507 
020107 
041505 
051511 
051105 
047514 
042510 
043505 
020122 
020116 
000122 
052503 
020124 
042116 
042517 
020124 
020110 
042522 
044514 
051040 
052123 
043101 
020101 
040440 
044516 
041505 
042516 
020104 
041516 
052103 
053105 
047527 
020116 
051440 
020122 
040510 
042526 
021040 
052440 

000 

117 
042101 
040515 
043101 
040504 
042116 
044040 
042502 
040505 
041505 
044507 
020123 


040505 
044507 
040440 
020105 
047116 
043117 
047524 
044440 
047522 
045517 
042101 
051511 
051511 
051105 


051122 
054503 
051105 
020123 
040515 
042504 
020104 
042116 
043505 
051105 
042524 
042523 
042116 
000124 
020103 
040522 
051511 
051117 
005015 
051105 
042122 
044124 
041505 
051511 
020124 
020116 
040504 
042523 


020116 
041440 
042116 
042524 
040524 
042440 
053101 
047105 
026104 
020103 
052123 
051117 


020104 
052123 
020124 
042502 
047111 
051440 
020122 
020116 
000122 
040440 
051040 
042524 
044440 
047522 


047105 
044514 
042040 
047516 
041524 
044523 
054503 
051105 
044111 
005015 
020122 
045505 
044440 


042507 
042524 
044440 
042522 


020131 
047440 
051511 
047524 
052040 
044507 
047111 
040524 
021104 


042522 
046517 
020054 
020122 
040440 
041503 
020105 
051040 
005015 
042522 
0£1105 
051040 


MACY11 30(1046) O08-DFC-77 13357 PAGE 267 


POWER DOWN AND UP ROUTINES 


E30: 


EM31: 


EM32: 


eASCIZ 


eASCIT 


e ASCIZ 


eo ASCIT 


eASCIZ 


eASCIT 


eASCIT 


/LOOK AHEAD REGISTER IS IN ERPOR/ 


/CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER REGTIHSTER/<15><12> 


/AFTER A SEEK AWD INIT/ 


JECC GENERATED IS INCORRECT/<15><12> 


/EVERY WORD OW THIS SECTOR IS THAT CIVEN IN “DATA USED"/ 


/ON READ COMMAND, AFTFR DATA AND ECC HAVE BEEW READ, /<15>¢12> 


/ECC REGISTERS OR RHERL APE IN ERROR/<15><12> 


cb 


( 





MNDEC-11-DZRJG-A,RP04/5/6 DSKLS CONTROLLER TST-PT 1 
DZRJGA.P11 


11730 
11731 
11732 
11733 
11734 
11735 
11736 
11737 
11738 
11739 
11740 
11741 
1174? 
11743 
11744 
11745 
11746 
11747 
11748 
11749 
11750 
11751 
11752 
11753 
11754 
11755 
11756 
11757 
11758 
11759 
11760 
11761 
11762 
11762 
11764 
11765 
11766 
11767 
11768 
11769 
11770 
11771 
11772 
11773 
11774 
11775 
11776 
11777 
11778 
11779 
11780 
11791 
117862 
117823 
11784 
11785 


060750 
060756 
060764 
060772 
060773 
061000 
061006 
061014 
061022 
061030 
061036 
061044 
061052 
061053 
061060 
061066 
061074 
061102 
061110 
061116 
061124 
061130 
061136 
061144 
061152 
061160 
061166 
061174 
061202 
061210 
061216 
061224 
061232 
061240 
061246 
061254 
061262 
061270 
061275 
061302 
061310 
061316 
061324 
061332 
061340 
061346 
061354 
061362 
061370 
061371 
061376 
0614u4 
061412 
061420 
061426 
061434 


29-MAR-76 


042510 
042522 
051105 

012 

117 
047514 
030461 


051524 
047507 
041503 
044510 
052517 
052111 
051440 
052106 
034070 
047514 
042532 
052105 
044502 
020124 
053440 
031063 
042440 
043505 
020123 
051105 

120 
047511 
044507 
047440 
041040 
043117 
042524 
043505 
020122 
051122 

012 

114 
030440 
051524 
040520 
020116 
052123 
047510 


030522 
044440 
047522 


046116 
042527 
041040 
043117 
042524 
043505 
020116 
040505 


044510 
052517 
052101 
053517 
020061 
047440 
042117 
000061 
044107 
052116 
047040 
052105 
051105 
034465 
045503 
047522 
041505 
020124 
044510 
042510 
041040 
041503 
020056 
030462 
051517 
051517 
020116 
052123 
020122 
052111 
050040 
047122 
051511 
047111 
041505 


053517 
020061 
647440 
052124 
042522 
051105 
046125 


040440 
020116 
006522 


020131 
020122 
0$2111 
050040 
047122 
020056 
042502 
006504 


020122 
042114 
044103 
051105 
044502 
020106 
042440 


041440 
041040 
052117 
040440 
031440 
041440 
000123 
042040 
020124 
047516 
044107 
020116 
052111 
651040 
040510 
055040 

000 
082111 
042522 
051105 
030461 
20123 
052101 
051040 
042524 
047503 
006524 


051105 
044502 
020106 
051105 
044507 
051440 
020104 


MACY11 70(1046) O8-DEC-77 13:57 PAGE 268 


POWER DOWN AND UP ROUTINES 


2M333 


E™M343 


Ev35: 


eASCIT 


e ASCIZ 


eASCIZ 


eASCIZ 


ASCII 


eASCIT 


/OWLY LOWER 11 PITS OF PATTERN REG. CAN BE READ/<15><12> 


/THTS SHOULD MATCH LOWER 11 BITS OF GOOD ECCi/ 


/HIGH COUNT BIT WOT SET AFTER 386659 CLOCKS/ 


/ZERO DETECT PIT NUT HIGH WHEN 72 BIT ECC KEG. HAS 21 ZEROS/ 


/POSITION REGISTER Ok 11 PITS OF PATTERN REGISTER INCORRECT/<15><12> 


/LOWEP 11 BITS OF PATTEPN REGISTEF SHOULD MATCH LCWER/<15><12> 


rb 














MNDEC-11-DZRJG-A,RPO4/5/6 DSKLS CONTROLLER TST-PT 1 
OZRIGA.Pil 


11796 
11787 
11768 
11789 
11790 
11791 
11792 
11793 
11794 
11795 
11796 
11797 
11799 
11799 
11800 
11801 
11902 
11903 
11804 
11805 
11306 
11907 
11°08 
11809 
11°10 
119311 
11°12 
11913 
11914 
11815 
11°16 
11817 
11918 
11919 
11920 
11921 
11322 
11927 
11824 
11825 
11926 
11°27 
11828 
11829 
11930 
11°31 
11832 
11833 
11934 
11°35 
11°36 
11937 
11239 
11839 
11840 
11941 


061442 
061450 
061456 
061457 
061464 
061472 
061500 
0€1505 
061512 
061520 
061526 
061534 
061542 
061550 
061556 
061564 
061572 
061574 
061602 
061610 
061616 
061624 
061632 
061640 
061646 
061654 
061662 
061670 
061676 
061704 
061705 
061712 
061720 
061726 
061734 
061742 
061750 
061756 
061761 
061766 
061774 
062002 
062010 
062016 
062024 
06203? 
062040 


062042 
062050 
06 2056 
062064 
062072 
062100 
062106 
062114 


29-MAR-76 


040515 
047514 

012 

061 
051524 
047507 
041503 

104 
053116 
047507 
051517 
020116 
026516 
055040 
040440 
020116 
000114 
047117 
020104 
047101 
044124 
041455 
052103 
042440 
023440 
040440 
041505 
047510 
042502 

000 

120 
046501 
051117 
021440 
020116 
020062 
047516 
006524 

111 
044523 
051040 
042524 
030060 
020122 
026061 
051511 
000104 


044122 
042111 
036440 
047520 
050115 
047117 
042522 
051117 


00:00 


041524 
042527 


020061 
047440 
042117 
006461 
052101 
047514 
042117 
052111 
047101 
047503 
051105 
042522 
041517 


051040 
047503 
020104 
047040 
051117 
041101 
051122 
041504 
042116 
023510 
046125 
051440 


047522 
042440 
041040 
030061 
044122 
044504 
020124 

012 
020106 
044524 
043505 
020122 
030054 
030061 
044440 
043440 


041527 
047040 
030040 
020116 
042514 
047440 
042101 
053440 


020110 
006527 


044502 
020106 


044440 
040524 


040505 
046515 
044527 
047117 
04252? 
042514 
051117 
023513 
023440 
051440 
020104 
052105 


051107 
051122 
052111 
044440 
051503 
020104 
042523 


047520 
047117 
051511 
030475 
047440 
032060 
020124 
047517 


042040 
052117 
0*2440 
047503 
044524 
020106 
005015 
044522 


eASCIT 


e ASCIZ 


E¥363 eASCIZ 


Ev37: eASCIT 


eo ASCIZ 


EM40: eASCIT 


eASCIZ 


MACY11 70(1046) O8-DEC-77 13:57 PAGE 269 
UP ROUTINES 


411 BITS OF GOOD ECCi/<15><12> 


/DAT ENVLOP GOOD POSITION AND N-CODE ZEROS ARE IM OCTAL/ 


/ON READ COMMAND WITH WON-CORRECTABLE ERROR “DCE” AND “ECR” SHOULD BE SE 


/PROGPAM ERROR PIT #10 Fe RHCS2 DID KOT SET/<15><12> 


/TF POSTTION REGISTER =10040 OR 10041, IT IS GOOD/ 


/RHWC DIL NOT = OY UPON COMPLETION OF READ/<15><12> 


JOR WRITE HEADER AND DATA/ 


Gb 





MNDEC-11-DZRJG-A,RP04/5/6 DSKLS CONTROLLER TST-PT 1 MACY11 30(1046) O08-DEC-77 13:57 PAGE 270 
OZRIGA.PL1 29-MAR-76 00:00 POWER DOWN AND UP ROUTINES < 


11942 062122 042524 044040 040505 

119843 062130 042504 020122 047101 < 
11844 062136 020164 040504 040524 

11°45 062144 000 





MN DE C-11-DZRJG-A,RP04/5/6 DSKLS CONTROLLER TST-PT 1 
29-MAR-76 00:00 P 


OZRIGA.P11 


11846 
11847 
11848 
11849 
11850 
11951 
11852 
11°53 
11854 
11855 
11856 
11857 
11858 
11859 
11860 
11861 
11862 
11863 
11864 
11865 
11866 
11867 
11868 
11869 
11870 
11871 
11872 
11973 
11874 
11875 
11876 
11977 
11878 
11879 
11880 
11891 
11882 
11863 
11884 
11895 
11886 
11887 
11688 
11889 
11890 
11891 
11892 
11993 
11994 
11895 
11994 
11897 
11898 
11899 
11900 
11901 


062145 
062152 
062160 
062166 
062174 
062202 
062210 
062711 
062216 
062224 
062225 
062232 
062240 
062246 
062254 
062262 
062270 
062276 
062304 
062306 
062314 
062322 
062330 
062336 
062344 
062352 
062360 
062366 
062367 
062374 
062402 
062410 
062416 


062417 
062424 
062425 


062430. 


062436 
062444 
062452 
062460 
062466 
062474 
062502 
062510 
062516 
062524 
062532 
062540 
062546 
062553 
062560 


041520 
020040 
020040 
027107 
047507 
020040 
053111 
020040 


020040 


052101 
051122 
051440 
041517 
0290124 
047111 


005015 
177777 


042510 
051124 
020122 
053105 
040510 
042516 
044514 
047514 


040505 
041040 
020105 
044501 
026105 
040510 
052101 
OS2111 


044510 
047101 
042502 
051101 


020040 
000040 


020040 
042524 
020040 
020040 
042117 
042522 
042105 
020040 
047516 
020040 
020056 
040524 
040504 
020040 
020103 
052040 


046101 
051117 
042505 
046525 
044514 
006507 


177607 
177607 


041440 
046117 
051117 
041511 
020123 
047440 
042516 
052123 


054504 
041505 
047125 
040514 
047440 
020123 
051525 
006523 


044103 
047516 
041440 
042105 


020040 


020040 
052123 
042522 
020040 
020040 
042503 
005015 
020040 
020040 
042101 
020040 
020040 
040524 

000 
020040 
051505 


mMACY11 —- 06-DEC-77 13:57 PAGE 271 


OWER DOWN AND UP ROUTI 


CPHALT: 


SPACER: 
SPACE2: 


DH1: 


DH2: 


eASCIT 


eASCIT 


eASCIT 


e ASCII 


eASCIZ 


eASCIT 
2 ASCIZ 


eASCIT 


eASCIZ 


eASCIT 


/PATAL ERROR - SEE DOCUMENT LISTING/<15><12> 


4 1€159€12>€2079€3779€377d< 2079€3779< 377d 


/THE CONTROLLER OR DEVICE HAS GONE OFFLINE, LOST/<15><12> 


/°READY’, BECOME UNAVAILABLE, OR HAS STATUS BITS/<15><12> 


/WHICH CANNOT BE CLEAPED/ 


/ / 

4474 

Pc TEST PEC. cood PECEIVED/<15><12> 
é L Tt) ADDR. DATA DATA / 


Pc TEST WORD Good BAD 4<15><12> Ib 











MNDEC-11-DZRJG-A, RP04/5/6 + CONTROLLER TST-PT 1 


DZRJGA.P11 


11902 
11903 
11904 
11905 
11906 
11907 
11908 
11909 
11910 
11911 
11912 
11913 
11914 
11915 
11916 
11917 
11918 
11919 
11920 
11921 
11922 
11923 
11924 
11925 
11926 
11927 
11928 
11929 
11930 
11931 
11932 
1193? 
11934 
11935 
11936 
11937 
11938 
11939 
11940 
11941 
11942 
11943 
11944 
11945 
11946 
11947 
11948 
11949 
11950 
11951 
11952 
11953 
11954 
11955 
11956 
11957 


062566 
062574 
062602 
062610 
062616 
062624 
062625 
062632 
062640 
062646 
062654 
062662 
062670 
062676 
062704 
062712 
062720 
062726 
062734 
062742 
062750 
062756 
062764 
062770 
062776 
063004 
063012 
063020 
063026 
063034 
063042 
063050 
063056 
063064 
063072 
063100 
063106 
063114 
063122 
063130 
063136 
063144 
063152 
063160 
063166 
063174 
063202 
063210 
063216 
063224 
063232 
063240 
063246 
063254 
063256 
063264 


29-MAR-76 


020124 
051117 
043440 
020040 
020040 

012 

040 
020040 
020040 
020117 
042040 
020040 
020101 
041520 
020040 
020040 
046111 
047503 
020040 
020056 
052116 
047503 
020040 
020040 
020040 
020040 
020107 
044122 
020040 
020062 
051504 
044122 
041520 
020040 
020040 
046111 
047503 
020040 
020056 
052116 
047503 
020040 
020056 
020040 
020040 
020040 
020107 
040502 
020107 
020061 
051503 
044122 
020040 
000061 
041520 
020040 


020040 
020104 
047517 
041040 
020040 


020040 
047040 
020040 
020040 
052101 
042040 
020040 
020040 
042524 
020040 
047111 
052116 
047503 
020040 
020056 
052116 
005015 
020040 
047516 
020040 
042101 
051503 
044122 
020040 
020061 
051105 
020040 
042524 
020040 
047111 
052116 
047503 
020040 
020056 
052116 
047503 
020040 
020040 
047516 
020040 
042101 
020104 
044122 
020040 
020062 
051504 
044122 


020040 
042524 


053440 
020040 
020104 
042101 
006440 


020040 
020117 
047040 
020040 
020101 
052101 
000040 
020040 
052123 
040506 
020107 
020056 
052116 
047503 
020040 
020056 


020040 
020040 
042522 
020122 
020061 
051503 
044122 
020040 
000061 
020040 
052123 
040506 
020107 
020056 
052116 
047503 
020040 
020056 
052116 
005015 
020040 
020040 
042522 
020122 
04252? 
051503 
044122 
020040 
020061 
051105 


020040 
052123 


POSER DOWN AND 


DOAL1s: 


OH14: 


DH15: 


eASCIZ 


eASCIT 


eASCIZ 


e ASCII 


eASCIZ 


eASCIZ 


MACY11 30(1046) 


UP ROUTINES 


7Pc 


7PCc 


7Pc 


TEST 


TEST 


TEST 


08-DFC-77 13:57 PACE 272 


WO DATA 


FAILING CONT. 


REG ADR RHCS1 


FAILING CONT. 


DATA 


CORT. 


RHCS2 


CORT. 


REG ADP BAD PEG RHCS1 


REG ADR / 


/ 


CONT. 


RHDS1 


CONT. 


RHCS2 


CONT. 4<€15><12> 


RHERI/ 


CONT. CONT. 4<15><1 


RHDS1 RHERI/ 


36 


_— _ i La_—lle* 


MNDEC-11-DZRJG-A, RP04/5/6 DSKLS CONTROLLER TST-PT 1 


OZRJGA.P11 


11958 
11959 
11960 
11961 
11962 
11963 
11964 
11965 
11966 
11967 
11968 
11969 
11970 
11971 
11972 
11973 
11974 
11975 
11976 
11977 
11978 
11979 
11990 
11961 
11982 
11983 
11984 
11985 
11986 
11987 
11988 
11989 
11990 
11991 
11992 
11993 
11994 
11995 
11996 
11997 
11998 
11999 
12000 
12001 
12002 
12003 
12004 
12005 
12006 
12007 
12008 
12009 
12010 
12011 
12012 
12013 


063272 
063300 
063306 
063307 
063314 
063322 
063330 
063736 
063344 
063352 
063360 
063366 
063371 
063376 
063404 
063412 
063420 
063426 
063434 
06344? 
063450 
063452 
063460 
063466 
063474 
063502 
063510 
063516 
063524 
063532 
063540 
063544 
063552 
063560 
063566 
063574 
063602 
063610 
063616 
063624 
063632 
063635 
06364? 
063650 
063656 
063664 
063672 
063700 
063706 
063714 
063722 


063727. 


063734 
063742 
063750 
063756 


29-MAR-76 


020040 
020107 

000 

120 
020040 
020124 
044501 
041040 
020040 
020040 
043505 
006440 


042522 
047117 
000040 
041520 
020040 
020040 
052116 
047503 
020040 
020056 
052116 
047503 
020040 
020040 
020040 
020040 
040502 
04412? 
020040 
020040 
051503 
044122 
020040 

120 
020040 
020124 
047117 
041440 
020040 
020124 
047117 
041440 
020040 

040 
020040 
020040 
042510 
051040 


020040 
042101 


020103 
052040 
020040 
020124 
052111 
051040 
020040 
020040 

012 
020040 
047040 
020040 
020040 
047101 
040440 
051523 
027124 


020040 
042524 
020040 
020056 
052116 
047503 
020040 
020056 
052116 
005015 
020040 
047516 
020040 
020040 
041104 
044122 
020040 
020061 
051503 

000 
020103 
052040 
020040 
020124 
047117 
041440 
020040 
020124 
047117 
006440 
020040 
047040 
020040 
030522 
042510 


042522 
020122 


020040 
051505 
053440 
020040 
020040 
043505 
051040 
020040 


020040 
020117 
050040 
020040 
042524 
042104 
041440 
020040 


020040 
052123 
047503 
020040 
020056 
052116 
047503 
020040 
020056 


020040 
020040 
044122 
020040 
020040 
041527 
044122 
020040 
020062 


020040 
051505 
041440 
020040 
020124 
047117 
041440 
020040 
020124 

012 
020040 
020117 
051040 
020040 
03112? 


POWER DOWN AND 


DH16: 


DH17; 


DH20: 


eASCIT 


eASCIZ 


eASCIT 


eASCIZ 


eASCIT 


eASCIZ 


MACY11 30(1046) O08-DEC-77 13357 PAGE 273 
UP ROUTINES 


Pc 


7Pc 


/PCc 


TEST 


TEST 


TEST 


NO 


WAIT 


Pc 


CONT. 


CONT 


PHERI 


RIT 


WANTED 


CONT. 


CONT 


RHER2 


PEG REG 


ADDRESS CONT. 


CONT. CONT. 


RWC RHCS1 


CONT CONT 


RHER3 RHAS 


4¢15><12> 


CONT. /€15><12> 


rucs2? / 


Cont 4<15><12> 


RHDS1 / 


Kb 





ee ae DSKLS CONTROLLER TST-PT 1 MACY11 30€1046) O8-DEC-77 13:57 PAGE 274 
OZRIGA.P1I1L 29-MAR-76 00:00 POWER DOWN AND UP ROUTINES 


12014 063764 020040 051040 042510 

12015 063772 031522 020040 051040 

12016 064000 040510 020123 020040 

12017 064006 051040 042110 030523 

12018 064014 020040 000040 

12019 064020 041520 020040 020040 DH21: eASCIT /PC TEST CONT cont Cont 4€15><12> 
12020 064026 020040 042524 052123 

12021 064034 020040 020040 047503 

12022 064042 052116 020040 020040 

12023 064050 047503 052116 020040 

12024 064056 020040 047503 052116 

12025 064064 020040 020040 005015 

12026 064072 020040 020040 020040 eASCIZ / wo RHCS1 RHAS PHDS1/ 
12027 064100 020040 047516 020040 

12028 064106 020040 020040 044122 

12029 064114 051503 020061 020040 

12030 064122 044122 051501 020040 

12031 064130 020040 044122 051504 

12032 064136 000061 

12033 064140 041520 020040 020040 0H22: eASCIT /PC TEST RHAS RACS2/<15><12> 
12034 064146 020040 042524 052123 . 

12035 064154 020040 020040 020040 

12036 064162 051040 040510 020123 

12037 064170 020040 051040 041510 

12038 064176 031123 005015 

12039 064202 020040 020040 020040 eASCIZ / NO UNITS UNITS/ 

12040 064210 020040 047516 020040 

12041 064216 020040 020040 020040 

12042 064224 052440 044516 051524 

12043 064232 020040 052440 044516 

12044 064240 051524 000 

12045 064243 120 020103 020040 DH24: eASCIT /PC TEST RHDST 840 Good SECTOR SECTOR /<15><12> 
12046 064250 020040 052040 051505 

12047 064256 020124 020040 051040 

12048 064264 042110 052123 020040 

12049 064272 041040 042101 020040 

12050 064300 020040 043440 047517 

12051 064306 020104 020040 051440 

12052 064314 041505 047524 020122 

12053 064322 051440 041505 047524 

12054 064330 020122 006440 012 

12055 064335 040 020040 020040 eASCIZ / NO CONT. RHLA RHLA NO cLocr / 
12056 064342 020040 047040 020117 

12057 064350 0270040 020040 041440 

1205@ 064356 047117 027124 020040 

12059 064364 051040 046110 020101 

12060 064372 020040 051040 046110 

12061 064400 020101 020040 047040 

12062 064406 020117 020040 020040 

12063 064414 041440 047514 045503 

12064 064422 020040 000040 

12065 064426 041520 020040 020040 0H26: eASCIT /PC TEST PC OF FAILING CONT. CONT. CONT. CONT. /<€15><1 
12066 064434 020040 042524 052123 

12067 064442 020040 020040 041520 

12068 064450 047440 020106 020040 

12069 064456 040506 046111 047111 Lp 





MNDEC-11-DZRJG-A, PP04/5/6 DSKLS 


OZRIGA.P11 


12070 
12071 
12072 
12073 
12074 
12075 
12076 
12077 
12078 
12079 
12080 
12081 
12082 
12083 
12084 
12085 
12086 
12087 
12088 
12089 
12090 
12091 
12092 
12093 
12094 
12095 
12096 
12097 
12098 
12099 
12100 
12101 
12102 
12103 
12104 
12105 
12106 
12107 
12108 
12109 
12110 
12111 
12112 
12113 
12114 
12115 
12116 
12117 
12118 
12119 
12120 
12121 
12122 
12123 
12124 
12125 


064464 
064472 
064500 
064506 
064514 
064522 
064530 
064536 
064544 
064552 
064560 
064566 
064574 
064602 
064610 
064616 
064624 
064631 
064636 
064644 
064652 
064660 
064666 
064674 
064702 
064710 
064713 
064720 
064726 
064734 
064742 
064750 
064756 
064764 
064772 
064774 
065002 
065010 
065016 
065024 
065032 
065040 
065046 
065054 
065056 
065064 
065072 
065100 
065106 
065114 
065122 
065130 
065136 
065137 
065144 
065152 


29-MAR-76 


020107 
020056 
052116 
047503 
020040 
020056 
020040 
020040 
020040 
020122 
042522 
020104 
020061 
051503 
044122 
020040 
020061 

120 
020040 
020124 
020103 
043040 
043516 
020104 
041505 
006504 

040 
020040 
020040 
051123 
051040 
020040 
020101 
052101 
000040 
041520 
020040 
020040 
047440 
042522 
020040 
020040 
020104 
005015 
020040 
020040 
020040 
020122 
042101 
020123 


047503 
020040 
020056 
052116 
047503 
020040 
020040 
047516 
020040 
020040 
020107 
044122 
020040 
020062 
051504 
044122 
020040 
020103 
052040 
020040 
043117 
044501 
043440 
020040 
044505 

012 
020040 
047040 
020040 
020040 
043505 
042040 
020040 
020101 


020040 
042524 
020040 
020106 
027107 
047507 
020040 
020040 


020040 
047516 
020040 
020040 
051104 
040504 
020040 
020040 


020103 
052040 
070040 


CONTROLLER TST-PT 1 
POWER DOWN AND 


052116 
047503 
020040 
020056 
052116 
005015 
020040 
020040 
051512 
020040 
042101 
051503 
044122 
020040 
020061 
051105 

000 
020040 
051505 
050040 
020040 
044514 
047517 
ose 4A 
042526 


eASCIZ 


DH27: e ASCII 


020040 
020117 
045040 
020040 
020040 
052101 
042040 
020040 


020040 
052123 
041520 
020040 
020040 
042117 
040502 
020040 


020040 
020040 
051512 
020040 
051505 
040524 
040504 
020040 


020040 
051505 
053440 


eASCIZ 


DH303 


eASCIT 


eASCIZ 


DH313 eASCIT 


MACY11 30(1046) O08-DEC-77 13:57 PAGE 275 


UP ROUTIWES 
/ NO 
/Pc TEST 
i wo 
Pc TEST 
/ NO 
7Pc TEST 


JSP 


Pc OF 


JSR 


PC OF 


JSF 


REG ADD RHCS1 


FAILING GOOD 


REG 


DATA 


ADDRFSS DATA 


6000 BAD 


RHCS? RHDS1 RHER1 
PECEIVED/<15><12> 
DATA / 

BAD 4¢€15><12> 
OATA . ff 

CONT. CONT. CONT 


4<15><1 


mb 








MVDECHLL <P ROIGMR, PPO4/5/5 DSELS —— TST-PT 4 


O7wIGR. PLL 


12126 
12127 
1212? 
12129 
12139 
12131 
1213? 
12137 
12134 
12135 
12136 
12137 
12138 
12139 
12140 
12141 
12142 
12143 
12144 
12145 
12146 
12147 
12148” 
12149 
12150 
12151 
12152 
12153 
12154 
12155 
12156 
12157 
12158 
12159 
12160 
12161 
12162 
12163 
12164 
12165 
12166 
12167 
12168 
12169 
12170 
12171 
12172 
12173 
12174 
12175 
12176 
12177 
12178 
12179 
12180 
12181 


065160 
065166 
965174 
06570? 
065216 
065216 
065224 
069732 
06574¢ 
065241 
065746 
065754 
065262 
065270 
065776 
065304 
065312 
065320 
065326 
065234 
065342 
065350 
065356 
065304 
065372 
065400 
065406 
065414 
065422 
065430 
065436 
065444 
065452 
065454 
065462 
065470 
065476 
065504 
065512 
065520 
065526 
065534 
065542 
065550 
065556 
065564 
065565 
06557? 
065600 
065606 
065614 
065622 
065630 
065636 
065644 
065652 


29-¥A8-76 


0“1117 
643440 
020040 
020040 
047117 
041440 
020040 
020124 

012 

040 
020040 
020040 
020117 
042046 
020040 
020101 
041510 
051040 
020040 
03052? 
041520 
020040 
020040 
047440 
047527 
020040 
020040 
020104 
047503 
020040 
020056 
052116 
005015 
020040 
020040 
020040 
020122 
047516 
020040 
020040 
040524 
044122 
020040 
020061 
051105 

000 

120 
020040 
020124 
620103 
053440 
020040 
020104 
047117 
041440 
020040 


00:09 


020194 
047517 
041040 
9270040 
027124 
647117 
041440 
0200406 


020040 
0470406 
0270040 
020040 
052101 
042040 
020040 
930523 
042110 
051040 
020040 
020040 
042524 
020040 
020106 
042122 
047507 
020040 
020040 
052116 
047503 
020040 
020056 


020040 
047516 
020040 
020040 
020040 
040504 
020040 
020040 
051503 
044122 
070040 
020061 


020103 
052040 
020040 
043117 
051117 
043440 
020040 
027124 
047117 
041440 


020040 
O20104 
042101 
041440 
v20040 
027124 
647117 
000440 


v20040 
620117 
047040 
020040 
020101 
052101 
051040 
020040 
030523 
042510 
000040 
020040 
052123 
041520 
020040 
020040 
042117 
040502 
020040 
020056 
052116 
047503 
020040 


020040 
020040 
051512 
020040 
020040 
040524 
040504 
020040 
020061 
051504 
04412? 
020040 


020040 
051505 
0=0040 
020040 
020104 
047517 
041440 
020040 
027124 
047117 


MECVY11 3001046) 


Ode ONGN AND UF ROUTINES 


DH32: 


04335 


eASCIZ 


e ASCII 


/ 


7Pc 


eASCIZ / 


e ASCII 


7PC 


TEST 


TEST 


Od-DFC+77 

KO DATA 
Pc cF WORD 
JSR NU 
Pc OF WORD 


PATA 


coco 


DATA 


cooD 


L33*7 PAGE 276 


RHCSI1 


Pan 


DATA 


CUNT. 


COVT. 


RHCS1 


CUNT. 


CONT. 


RHDS1 


CONT. 


CONT. 


PHERI 


4<15><1 


A? 





MNDEC-11-DZRJG-A, RP04/5/6 DSKLS CONTROLLER TST-PT 1 MACY11 30(1046) OS8-DEC-77 13357 AGE 277 
O7ZRJGA.P11 29-MAR-76 00:00 POWER DOWN AND UP ROUTINES ( 


12182 065660 027124 020040 006440 

12183 065666 012 ( 
12184 065667 040 020040 020040 eASCIZ / KO JSR no dara  RHCS1 RHDS1 RHERI 7 

12185 065674 020040 047040 020117 : 

12186 065702 020040 020040 045040 ( 
12187 065710 051123 020040 020040 

12188 065716 047040 020117 020040 

12189 065724 020040 042040 052101 ( 
12190 065732 020101 020040 051040 

12191 065740 041510 030523 020040 

12192 065746 051040 042110 030523 ( 
12193 065754 020040 051040 042510 

12194 065762 030522 020040 000040 

1219S 065770 041520 020040 020040 DN34: .ascII Pc TEST COOD GOND WRITTEN WRITTEN DATA /¢15><12> ( 
12196 065776 020040 042524 052123 

12197 066004 020040 020040 047507 

12198 066012 042117 020040 020040 ( 
12199 066020 047507 042117 020040 

12200 066026 020040 051127 052111 

12201 066034 042524 020116 051127 ( 
12202 066042 052111 042524 020116 

12203 066050 040504 040524 020040 


12204 066056 020040 005015 ( 
12205 066062 020040 020040 020040 eASCIZ / Oo ECC1 FCC2 FCCl EcC2 USED f 

12206 066070 020040 047516 020040 

12207 066076 020040 020040 041505 ( 


12208 066104 030503 020040 020040 
12209 066112 041505 031103 020040 
12210 066120 020040 041505 030503 ( 
12211 066126 020040 020040 041505 
12212 066134 031103 020040 020040 


12213 066142 051525 042105 020040 ( 
12214 066150 020040 000 

12215 066153 120 020103 020040 0835: eASCIT /PC TEST GooD coop PATTERN POSITON GOOD RHERL /€15><1 

12216 066160 020040 052040 051505 ( 


12217 066166 020124 020040 043440 
12218 066174 047517 020104 020040 
12219 066202 043440 047517 020104 ( 
12220 066210 020040 050040 052101 
12221 066716 042524 047122 050040 
12222 066224 051517 052111 047117 ( 
12223 066232 043440 047517 020104 
12224 066240 020040 051040 042510 


12225 066246 030522 020040 006440 ( 
12226 066254 012 

12227 066255 040 020040 020040 eASCI7Z? / NO Eccl Ecc2 PEG. REG. POSITON REG. / 

12228 066262 020040 047040 020117 ( 


12229 066770 020040 020040 042440 

12230 066276 041503 020061 020040 . 

12231 066304 042440 041503 020062 ( 
12232 066312 020040 051040 043505 . 

12232 066320 051056 043505 020056 

12234 066326 020040 020040 020040 ( 
12235 066334 050040 051517 052111 

12236 066342 047117 051040 043505 

12237 066350 020056 020040 000040 ( 


87 
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OZRIGA.P11 


12238 
12239 
12240 
12241 
12242 
12243 
12244 
12245 
12246 
12247 
12248 
12249 
12250 
12251 
12252 
12253 
12254 
12255 
12256 
12257 
12258 
12259 
12260 
12261 
12262 
12263 
12264 
12265 
12266 
12267 
12268 
12269 
12270 
12271 
12272 
12273 
12274 
12275 
12276 
12277 
12278 
12279 
12280 
12281 
12282 
12283 
12264 
12285 
12286 
12287 
12768 
12289 
12290 
12291 
1229? 
12293 


066356 
066364 
066372 
066400 
066406 
066414 
066422 
066430 
066436 
066440 
066446 
066454 
066462 
066470 
066476 
066504 
066512 
066515 
06652? 
066530 
066536 
066544 
066552 
066560 
066566 
066574 
066602 
066610 
066616 
066624 
066625 
066632 
066640 
066646 
066654 
066662 
066670 
066676 
066704 
066712 
066720 
066726 


066733 
066740 
066746 
066754 
066762 
066770 
066776 
067004 


067010 
067016 


29-MAR-76 00300 


041520 
020040 
020040 
047440 
044122 
020040 
047524 
052124 
005015 
020040 
020040 
020040 
020122 
047503 
020040 
020040 
027107 

120 
020040 
020124 
051517 
050040 
047117 
020104 
047517 
050040 
047122 
020101 
041455 

012 

040 
020040 
020040 
041503 
043440 
020040 
020061 
041503 
042440 
020040 
047514 
051105 


120 
020040 
020124 
047117 
020040 
020040 
020040 
041527 


067010 


001116 
001124 


020040 
042524 
020040 
020106 
051115 
047520 
020116 
051105 


020040 
047516 
020040 
020040 
052116 
042522 
020040 

000 
020103 
052040 
020040 
052111 


042117 


020040 
047040 
020040 
020040 
047517 
042440 
020040 
020062 
041503 
042440 
042520 
051517 


020103 
052040 
020040 
027124 
020040 
047516 
020040 

000 


002032 
001126 


020040 
052123 
041520 
020040 
020040 
044523 
0405 20 
020116 


020040 
020040 
051512 
020040 
020056 
027107 
042522 


020040 
051505 
050040 
047117 
052111 
047517 
043440 
020040 
042524 
052101 
047040 
006505 


020040 
020117 
042440 
020040 
020104 
041503 
042440 
020040 
020040 
053116 
055040 

000 


020040 
051505 
041440 
005015 
020040 
020040 
044122 


042204 
000000 


MACY11 30(1046) 


POWER DOWN AND UP ROUTINES 


DH363 


OH37: 


DH40: 


eASCIT /PC 


eASCIZ / 


eASCIIT /PC 


eASCIZ / 


eASCIT /PC 


eASCIZ / 


TEST 


TEST 


TEST 


08-DEC-77 13257 PACE 278 


PC OF RHWR 


JSR CORT. REG. REGe/ 


POSITON POSITON GOOD cooDd 


Ecc 6000 Ecca Ecc2 
CONT. /<15><12> 
RHWC/ 


eWORD SERRPC,TSTNM,REGADR, SCODAT, SBDDAT,0 


POSITON PATTERN /<15><12> 


PATTER® DATA B-CODE/ 


Ecc 


EMVLOPE Z7EROS/ 


Cc? 


EE Ti Mle 


ee OS ca ea te a CONTROLLER TST-PT 1 
OZRIGA.P11 


12294 
12295 
12296 
12297 
12298 
12299 
12300 
12301 
12302 
12303 
12304 
12305 
12306 
12307 
12308 
12309 
12310 
12311 
12312 
12313 
12314 
12315 
12316 
12317 
12319 
12319 
12320 
12321 
1232? 
12323 
12324 
12325 
12326 
12327 
12328 
12329 
12330 
12331 
12332 
12333 
12334 
12335 
12336 
12337 
12338 
12339 
12340 
12341 
12342 
12343 
12344 
12345 
12346 
12347 
12348 
12349 


067024 
067032 
067036 
067044 


067052 
067060 
067066 
067072 
067100 
067106 
067114 
067122 
067124 
067132 
067140 
067142 
067150 
067156 


067162 
067170 
067176 
067202 
067210 
067216 
067224 
067232 
067240 
067244 
067252 
067260 
0672766 
067274 
067302 


0672304 
067312 
067320 
067322 
067330 
067336 
067344 
067352 
067360 
067366 
067370 
067376 
067404 
067412 
067420 
067426 
067432 
067440 
067446 
067454 


001116 
001124 
001116 
001124 


001116 
001714 
001716 
001116 
001126 
001736 
001116 
000000 
001116 
001200 
000000 
001116 
001704 
001712 


001116 
001722 
001736 
001116 
001732 
001116 
001116 
001126 
001204 
001116 
001122 
001736 
001116 
042204 
000000 


001116 
042204 
000000 
001116 
001124 
001736 
001116 
047320 
001714 
000000 
001116 
047320 
001736 
001116 
045232 
051116 
001116 
045232 
045242 
001116 


002032 
000000 
002032 
001126 


002032 
001712 
000000 
002032 
001714 
001716 
002032 


002032 
001176 


002032 
001706 
000000 


002032 
001730 
000000 
002032 
001736 
002032 
002032 
001200 
000000 
002032 
001714 
001716 
002032 
001124 


002032 
001124 


002032 
001126 
001716 
002032 
001124 
001736 


002032 
001124 
001716 
002032 
052116 
000000 
002032 
001746 
001716 
002032 


047320 


047320 
000000 


001122 
001736 


001122 
001712 
000000 
001200 


001204 
001126 


001710 
001714 


001716 
00173? 


001714 
000000 
000000 
001720 
001202 


002014 
001712 
000000 
002014 
001126 


002014 
001126 


047320 
001714 
000000 
002014 
001126 
001716 


002014 
001714 
000000 
045230 
052120 


045230 
001744 
000000 
002014 


MACY11 30(1046) O8-DEC-77 13:57 PAGE 279 


POWER DOWN AND UP ROUTINES 


DT2: 
OT3: 


OT113 


DT14: 


OT153 
OT16: 


OT17: 


D0T203 
DT21: 
OT22: 
DT24: 


DT26: 


DT27: 


DT30s 


OT31: 


DT32: 


DT33: 


DT343 


OT3S: 


DT36: 


eWOPrD 
WORD 


Word 


SERRPC, TSTWM, ERWORD, SCODAT, 0 
SERRPC, TSTNM, ERWORD, SCODAT, SBDDAT,0 


SERRPC, TSTHM, SBDAOR,CS1,CS2,0S1,ER1,0 
SERRPC, TSTHM, SBDADR, SBDDAT,CS1,CS 2,081, £R1,0 


SERPPC, TSTUM,STHP1,0 
SERRPC, TSTUM, STMP2,STMP1, STMPO,SBDDAT,O 


SERRPC, TSTHM,BA,DB,WC,CS1,CS2,0 


SERRPC, TSTWM,ER1,ER2,FR3,AS,081,0 

SERRPC, TSTWM,CS1,4S,0S1,0 

SERRPC, TSTHM,0 

SERRPC, TSTNM, DST, SBDDAT, STMPI,$TMP2,$THP3,0 


SERRPC, TSTNM, PCISR,SBDADR,CS1,CS2,0S1,ER1,0 


SERRPC, TSTNM, PCISR,REGADR, $CODAT, SBDDAT, 0 


SERRPC, TSTNM, PC ISR, REGADR, SCODAT, SBDDAT, 0 
SERRPC, TSTNM, ERWORD, $GDDAT, SBDDAT,CS1,0S1,ER1,0 


SERRPC, TSTNM,PCJSR,ERWOPD,SGCDDAT, SBDDAT,CS1,DS1,EPR1,0 


SERPPC, TSTNM,PCJIS®, ERWOPD,SCDDAT,CS1,0S1,ER1,0 
SERRPC,TSTNM, GECC1 ,CECC2,WECC1 ,WECC2,DISK,0 
SERRPC, TSTNM, GECC1 ,GECC?,EC2,FC1,POSITIZERI,0 


SERRPC,TSTNM,PCJSR,MR,ECI,EC 2,0 





MNDEC-11-DZRJG-A,RP04/5/6 DSKLS CONTROLLER TST-PT 1 
29-MAR-76 00:00 


OZRIGA.P11 


12350 
12351 
12352 
12353 
12354 
12355 
12356 
12357 
12358 
12359 
: 12360 
12361 
12362 
J 12363 
12364 
12365 
: 12366 
12367 
12368 
: 12369 
12370 
12371 
: 12372 
12373 


12374. 


12375 
12376 
12377 

‘yj 12378 
12379 
12380 

J 12381 
12382 
12383 
12334 
12385 
12386 
12387 
12398 
12389 

J 12390 
12391 
12392 

J 12393 
12394 
12395 
12396 
12397 
12398 
12399 
12400 
12401 

3 12402 
12403 
12404 
12405 


067462 
067470 
067472 
067500 
067506 
067514 


067516 
067524 


067526 
067531 
067533 
067536 
067537 
06754? 


067544 
067547 
067552 
067553 
067556 
067561 
067563 
067566 
067571 
067573 
067576 
067601 


067602 
067605 
067610 
067611 
067614 
067616 
067621 
067622 
067625 
067630 
067631 
067634 
067637 
067641 
067644 


067647 
06765? 
067655 
067660 
067663 
067665 
067670 
067673 
067676 
067701 


001734 
000000 
001116 
045242 
001746 
000000 


001116 
000000 


001744 


002032 
045230 
045246 


002032 


001746 
001744 


04523? 
045250 


001126 


000 
001 
001 


000 
000 
001 
000 
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POWER DOWN AND UP ROUTINES 


OT37: 


OT403 


OF1: 
DF2: 
DF3: 


OF 11: 


DF14: 


OF153 


DOF16: 


DF17: 


DF 20: 


DOF21: 
OF 223 
OF 24: 


DF263 


DF27: 


DF30: 
OF31: 


DF32: 


DF33: 


WORD 


BYTE 
BYTE 
BYTE 


BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


BYTE 


BYTE 
BYTE 
BYTE 


ePYTE 
BYTE 


BYTE 
BYTE 


BYTE 


BYTE 


SERRPC, TSTWM,EC1,POSITI,GECC1,GECC 2,EC 2,DATENV,ZCODE, 0 


SERPRPC, TSTHM,SBDDAT,O 


070,0,0,0 
020410 
07091,0,0 


0,0,0,0,0,0,0 
070407040404000 
0,0,0 

040404020 
0704040,0,0,0 


0404040,0,0,0 


0,0,0,0,0 
0,0,0,0 
0,0,0,0,0,0,0 


090¢979¢0¢02070 


0,0,0,0,0,0 


0,0,0,0,0,0 
040¢140¢0¢02¢0,0 


0,0,0,1,0,0,0,0,0 


0,0,0,1,0,0,0,0 


€? 


-— = ~ y — 
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12406 
: 12407 
12409 
12409 
: 12410 
12411 
12412 
: 12413 
12414 
12415 
12416 
12417 
12418 
12419 
12420 
12421 
12422 


067704 
067706 
067711 
067714 
067715 
067720 
067723 
067725 
067730 
067733 
067736 
067741 


067744 


29-MAR-76 00:00 


000 
067750 


000001 


000 
000 
090 
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POWER DOWN AND UP ROUTINES 


DF35: 


DF 363 


DF373 


DF 40: 


BYTE 


BYTE 


-SYTE 


BYTE 


BYTE 
EVEN 


04040,0,0,0,0 
070904040¢0700 
0,0,0,0,0,0 


0,0,0,0,0,0,0,0,0 


0,0,0 


57 
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DZRJGA.P11 29-MAR=76 00:00 CROSS REFERENCE TABLE -- USER SYMPOLS 

ABS = 000200 9198 

ACL = 000040 9718 < 
acu =_:100000 9078 

ADE = 001000 8238 7923 

as 001732 10628 3449 3517 6289 £6347 127314 «12317 | 
ATA = =: 100000 6118 3286 4382 6299 6319 7938 BORS 8194 8307 

ATAPLE 004220 11568 1602 
ATTENT 002016 10948 1561" 1602* 3721 4879 6277 6345 1936 8083 8192 6305 < 
ato = 000001 8458 
ATL = 000002 8468 | 
AT2 = 000004 e478 <« 
AT3) = =:000010 8438 

AT4 6066620 8498 

ATS = 000040 8S08 <q 
AT6 = =_:000100 ssi 

AT7 = = (000200 8528 

Al6 = =:(000400 7858 3350 6536 6556 « 
A117 —s- =: 001000 7878 3350 6536 6556 

RA 001710 10518 6690 6704 12310 

BAI = 000010 7568 3122 3127 6429 6548 6564 1039 9258 « 
BASECH 046160 1324 96598 

BEGIN 004240 196 11698 11554 

BEGIN2 004230 183 11678 <q 
BITST 042206 1359 1728 1753 1629 1653 1877 1959 1995 2010 2035 2056 95438 

BITO = 000001 146@ 6284 9000 9035 9037 

BITOO = 990001 136% 146 q 
BIT®: = 00000? 1358 145 

BITO2 = 000004 1348 144 

BITO3 = 000010 1338 143 <q 
BITO4 = 000020 1329 142 

BITOS = 000040 1318 141 1936 

BIT06 = 000100 1308 140 1936 < 
BITO7? = 000200 1298 139 1336 

BITOA = 000400 1238 138 1937 10842 

BITO9 = 001000 1278 137 1915 1936 10850 11330 ¶ 
BIT1 = 000002 1458 9014 

BIT10 = 002000 126# 11314 

BIT11 = 004000 125@ 10857 q 
BIT12 = 010000 1248 

BIT13 = 020000 123# 9070 9032 11371 

BIT14 = 040000 122# 9007 10928 <q 
BIT1S5 = 100000 121@ 9002 9009 9016 2025 9027 

BIT? = 000004 1449 

BIT3 = 000010 1438 q 
BIT4 = 000020 142¢ 

BITS = 000040 1418 

BIT6 = 000100 1408 | 
BIT? = 000200 1398 

BITS = 000400 1338 

BIT9 = 001000 1378 | 
BLT1 042234 A5498 8554 

BLT2 042256 9549 8550 85568 

BLT3 «042266 3557 #5588 < 
BPTVEC= 000014 1538 

cA 001726 1060# 

cat 036720 1686 78178 








MNDEC-11-DZPJG-A, RPO4/5/6 DSKLS CONTROLLER TST-PT 1 


DZRIGA.P11 

ce 001752 
CHECKD= 104414 
CHECKS 042760 
CHECKT 042570 
CKSWR = 104407 
CLAREA 042452 
CLOIS® 042534 
CLR = 000040 
COMHD 047040 
COMPA 05011? 
COMPAR 043430 
COMWHD 052162 
COUNTD 050560 
CPHALT 062145 
cr = 000015 
crc 043742 
CRLF = 000200 
CSF = 000062 
csu = 000010 
csi 001714 
cs2 001712 
CYL 047200 
DAREAD 047254 
DATENV 045246 
DAWORD 047260 
oR 001704 
ock = 100000 
DCL = 000100 
DCLEAR 002050 
DDISP = 177570 
DENVL = 000200 
DEL = 000040 
DFF?0 = 00000? 
OFi 067526 
DF11 067544 
DF14 067553 


29-MAR-76 00:00 


10708 
115158 
5015 
3610 
6544 
9114 
10616 
5023 
6020 
6727 
7515 
1569 
2934 
3830 
5187 
6941 
8009 
7538 
5453 
$952 
9970* 
2161 
4337 
6089 
4995 
102268 
311 
$700 
7882 
618 
4967 
7609 
628 
6949 
8968 
10558 
12317 
10528 
6667 
5420* 
6577 
8921* 
9896 
93738 
5426* 
10498 
8298 
9728 
11238 
638 
8398 
8018 
71978 
317 
425 
456 


$125 
4735 
6619 
11515 
38 


5249 
4985 
6947 


11329 
$137 
6069 
6937 
1594 
1720 
3020 
4091 
5434 
7098 
6118 
2296 
5706 
98228 

100852 
2644 
4466 
6734 
5230 

10247 
4986 
5817 
#162 

11012 
5198 
713960 

11012 


2712 
12333 
272i 
12299 
5547* 
6302 
90R2* 


10130* 
5679* 


9210 


1200 


443 
123678 


$477 
5098 
7023 


115108 
5257 
6081 
7145 
7615 
1772 
3059 
4227 
$561 
7109 
8137 
3918 
5822 


10232* 
3387 
4554 


6868 
103518 


5016 
5911 
#267 


©322 
8830 


3314 
12336 
2757 
12302 
5550 
6924* 
9099 


10180* 
5891* 


9215 


123608 


5604 
$220 
7627 


$261 
6142 
7160 
7724 
18% 
3104 
4251 
5687 
7190 
@227 
4031 
5915 


3455 
4598 
70R2 


5099 
6261 
68648 


5428 
8929 


5355 
12340 
2772 
12310 
5673* 
7601* 
96568 


10195* 
6406* 


9231 


5730 
5339 
7757 


5783 
6162 
7226 
7745 
2089 
3150 
4370 
5608 
7271 
8247 
4162 
6431 


3523 
4670 
7957 


5126 
6426 
#946 


5555 
89858 


28633 
12323 
5682 
7610 


12352 
6524* 


9234 


6850 
5446 
78868 


5804 
6207 
7241 
7837 
2263 
31863 
4501 
5899 
7348 
#340 
4310 
6550 


3898 
4902 
8101 


$221 
6545 
9115 


<6 i 
9098 


F069 
2901 


§790* 
773i*° 


6799*° 


97148 
5573 
8056 


5674 
6389 
7306 
7866 
2314 
3243 
4631 
6259 
1566 
86448 
4440 
6876 


3951 
$071 
#216 


5250 
6820 
118478 


5798 


8675 
2939 


5799 
7740 


9e26° 


#926* 
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5616 
8266 


edd 
$927 
6442 
7385 


2686 
3341 
4719 
6414 
71698 
#935 
6285 
1633 


4062 
5269 
86728 


$447 
6948 


6406 


8774 
6046 


5694 
7851* 


9087* 


5910 
86628 


5932 
6511 
1394 


2752 
3418 
4924 
6532 
71749 
9113 
1029 
1763 


4145 
5495 
9155 


5478 
7024 


6526 


12299 
6i77 


6401* 
7861 


99108 


6260 
8647 


6001 
6627 
7446 


2623 
3475 
4956 
6611 
71836 
9301 
8649 
71904 


4189 
$622 
9181 


5574 
7626 


6601 


12302 
6179 
6409 


8623* 


6425 
6947 


6013 
6647 
7461 


2691 
3554 
$067 
6807 
7670 
9725 
6653 


4292 
5748 


5605 
7758 


693) 


12310 
6313 


6519* 


6831 


_& a y 








MNDEC-11-DZRJG-A,PRP04/5/6 DSKLS CONTROLLER TST-PT 1 


OZRJGA.P11 

DF15 067563 
OF16 067566 
OF17 067573 
DF2 067533 
DF20 067602 
OF21 067611 
DF22 067616 
OF 24 067622 
DF 26 067631 
DOF27 067641 
DF3 067537 
DF30 067647 
DF31 067655 
OF32 067665 
OF 33 067676 
DF 34 067706 
OF35 067715 
OF 36 067725 
DF37 067733 
DF 40 067744 
OFS = 000001 
oui 062430 
DH11 062676 
DH1i4 063056 
DH1S 063256 
DH16 063307 
DH17 063452 
DH2 062553 
DH20 063635 
DH21 064020 
DH22 064140 
DH24 064243 
DH26 064426 
DH27 064631 
DH30 064774 
DH31 065137 
DH32 065342 
0H33 065565 
DH34 065770 
DH35 066153 
DH36 066356 
DH37 066515 
DH40 066733 
DIGB = 000004 
DISK 051116 
DISPLA 001142 
DISPRE 000174 
DLT = 100000 
DL64 = 000020 
DMD == 000001 


29-MAR=-76 00300 


465 
476 
489 
123628 
502 


123738 
123748 
123768 


123808 
123838 
123658 
562 
123908 
123938 
412 
123968 
376 
393 
124048 
124078 
712 
672 
124158 
124198 


431 
716 
119348 
119568 
119618 
119798 
119008 
119998 
120198 
120338 
555 
120658 
120°78 
121058 
121238 
382 
121724 
121958 
702 
663 
122558 
122°18 


2108 
6021 
6635 
7979 
1200* 
1206 
2690 


1900 
3832 
4396 
4925 


123878 


123648 


123968 
124018 


124108 
12413# 


118868 
119158 


120458 


121468 


12215 
122388 


2163 
6022 
6641 
9069 
12086* 


2901 


1903 
3920 
4442 
5349 


2177 
6026 
6648 
9183 


10871* 


2999 


1924 
3973 
4503 
7055 


5033 
6033 
6649 
9676 


11313* 


2992 


2279 
4033 
4527 
7059 


MACY11 30(1046) 
CROSS REFERENCE TABLE -- USER SYNPOLS 


$271 
6150 
6778 


9641* 


5405 
6156 
6920 


10253 


$532 
6163 
6963 
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5658 
6164 


7595 


103148 10771 


5784 
6390 
7645 
12343 
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OZRJGA.P11 29-MAR-76 00:00 
8034 
9974 
10523 


00G 
OPR 
ORY 


OST 
DSwPr 
0S1 


oT 
OTAGAP 
OTE = 
OTSY = 
oTl 
OT11 
0T14 
OT15 
DT16 
DT17 
DT2 
0T20 
OT21 
DT2? 
0T24 
0T26 
DT27 
oT3 
0T30 
OT31 
0T32 
0T33 
0T34 
oT35 
0T36 
0T37 
0T40 
OVA = 


ECDATA 
ECH sz 
ECcI = 
ECORR 
ECTEST 
ECl 

EC2 
EMTVEC= 
EM1 
EM11 
EM14 
EM15 
EM16 
EM17 
EM2 


036254 
000400 
000200 


001720 
177570 
001736 


001740 
052122 
010000 
001000 
067010 
067052 
067072 
067114 
067124 
067142 
067024 
067162 
067202 
067216 
067224 
067244 
067266 
067036 
067304 
287322 
067344 
067370 
067412 
067432 
067454 
067472 
067516 
004000 


045226 
000100 
004000 
045652 
045264 
001744 
001746 
000030 
057154 
057325 
057260 
057400 
057451 
057472 
057237 


7554 
6048 
8038 

4449 

6731 

10578 

679% 

10648 

9736 

10658 


8076 
9979 
10533 
76918 
3286 
3286 
4536 


4767* 
261 
3264 
12299 


9995 
435 
123 

123028 
123058 
123078 
173108 


123148 
123178 
123198 
561 
123238 
123268 
411 
123308 
375 
392 
123408 
123438 
710 
670 
123524 
123578 
1784 
6556 
9407 


3366 


9593 
127346 
12346 

118 4* 

580 

429 
115958 
115968 
116058 
11606 

339 
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8084 
10093 
10683 


6299 
3432 
4581 
48386* 


1199 
6297 


122998 


123208 


122968 


123338 
123368 


123469 
123498 


1787 
6558 
9565* 


5440 


9635 
12349 
12349 

1185* 
115718 

564 


$140 
10106 
10692 


6319 
3500 
6299 
12320 


6317 
12314 


8186 
10109 


8193 
10123 


8250 
10126 


8299 
10167 


8306 
10177 


6355 
3877 
6319 


7671 
3928 
6355 


7674 
3993 
7061 


7801 
4041 
7671 


7604 
4112 
7674 


6353 
12317 


1669 
12323 


7799 
12336 


10061 
122928 


2615 
8580 
9032* 


2700 
8665 
9074* 


2712 
8669 
10103* 


5906 


3027 
9724 
10105*° 
6421 


10196 


3029 
101270* 
6540 


3037 
10122* 


$567 5693 6813 
10114 
12352 
12352 


1299* 
115908 


10131 10181 


1330* 


115808 


13357 PAGE 286 


9265 
10192 


66868 
4171 
78601 


3039 
10170* 
8843 


9295 
10360 


8691 
4272 
7804 


3067 
10174* 
#943 


3069 
10185 
9131 


3077 
10189* 
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—E™20 057516 
EM21 057537 
EM22 057561 
EM24 060241 
Ew2s 060334 
—M30 060374 
EM31 060516 
EM32 060641 
Eu33 061130 
EM34 061202 
EM35 061275 
EM36 061574 
EM37 061705 
EM40 062042 
EM6 057266 
ERCLFC 020504 
ERCRC 052356 
ERCS2C 013350 
ERFLGS 002006 
ERHDGP 052360 
ERHEAD 052354 
ERPOS 045650 
ERR = 040000 
ERRVEC= 000004 
ERSTAR 047012 
ERUNIT 047010 
ERWORD 047320 
ER1 001716 
ER2 001722 
ER3 001730 
EXT1l: = 000001 
EXxT10 = 000010 
ExT2 = 000002 
EXT20 = 000020 
EXT4 = 000004 
ExT40 = 000040 
FEN = 000200 
FER = 000020 
FILLEC 046024 
FIRST 002034 
FMT22 = 010000 


29-MAR-76 00:00 


493 
506 
$17 
$39 


116128 
11615# 
116198 
116738 
11683¢ 
11689¢ 
117038 
117168 
117518 
1175388 
117668 


115848 


10612* 
3276 


3639 
3775 


2341 
2475 
2637* 
$475 
6430* 
71654 
9693 


6319 
1209* 


3463 
4607 
71653* 
10017* 
10624* 
6363 


3655 
3785 


2351 
24938 
2651 
5579* 
6441* 
7762* 
10464 


6355 
1301* 


3531 
4678 
77786* 
10021*° 
12294 
6887 


3665 
38028 


2361 


4992*° 
5602 
6461 
7772 
11309* 


7062 
1306* 


3906 
4910 
77863* 
10043* 
12296 
6990 


3675 


2371 


$013 
5705* 
6549* 
7784 


7938 
1332* 


3960 

$837* 

7965 
10063* 
12333 
12299 


3685 


2381 


5027* 
5726 

6655* 
7893* 


10833 


4021 

$842* 

7981* 
10542* 
12376 
12302 


3695 


2391 


5105* 
5621* 
6713* 
71972° 


8194 
108634* 


4071 

$942* 

7986* 
10549* 
12340 
12314 


MACY11 30(1046) O8-DEC-77 13:57 PAGE 287 
CROSS REFERENCE TABLE -- USER SYMBOLS 


3705 


2401 


5123 
$831 
6825* 
7987 


8307 
10836* 


4152 

5947* 

8109 
10553* 


12323 


3715 


2410 


5142* 
5843 
6648 
2063* 


10839* 


4198 

6453* 

6218 
10575* 


12333 





3725 


2420 


$227* 
$914° 
6952* 
6166* 


4300 

6460* 

8331 
10983 


12336 


3734 


2431 


$247 
$925 
6960 
8273* 


4346 

6965*° 

6686* 
10589° 


12340 


«? 
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DZRIGA.P11 29-MAR-76 00:00 CROSS REFERENCE TABLE -- USER SYMBOLS 

FNWORD 052376 4966* 5076" S197" 5321* 104668 

FORMAT 050562 102278 10246 

rour 052402 10465 104718 

FRMAT1 033700 6919% 

FSYNER 052352 10379* 104058 10576* 

FUTABL 002042 11248 3246 

GCRC 052346 4969 5079 5200 5324 6933 10390% 10599 10602 
GECCL 045230 93638 9405 9491* 9624" 9640 12343 12346 12352 
GECC2 045732 93668 9406 9492" 9625" 9641 12343 12346 12352 
GUNS = *eee8e 168 1225 1230 1235 1239 1243 1247 1251 1255 1278 1317 1321 1403 


1407 1411 1415 1443 1447 1451 1455 1505 1512 1516 1606 1612 1618 
1647 1653 1659 1685 1689 1693 1699 4121 #355 8361 8462 8468 8475 
8479 8483 8490 8494 9662 9668 9680 9686 9692 9696 9700 9706 9712 
10794 11502 11503 11504 11505 11506 11508 11510 11511 11512 11513 11514 11515 


Go = 000001 7838 2526 3274 3362 3429 3497 3592 38671 3875 3926 39867 3991 4039 
4107 4110 4169 4267 4270 4317 4390 4402 4447 4522 4534 4579 4646 
4751 5350 5352 6307 7063 8077 8187 8300 9266 9296 9834 10363 


GRY = 000010 1998 

GTSWR = 104406 1265 115088 

HADTMP 045252 93899 9580 

HARDER 045244 93758 

HCCRCE 044344 7170 7251 7327 7404 7471 7534 91118 

HCE = 000200 8218 9200 9204 9210 9215 

acl = 002000 9358 3366 

HcRC = 000400 @22@ 9222 9225 9231 9234 

HDESYN 052362 103863* 104518 10627* 

ADWSYN 051114 103128 

HEADER 051070 103098 

HEDGAP 047214 9649* 98718 10024* 

HEDSYN 047216 9850" 96828 10044" 10065* 

HEGAP 051102 10015 103118 

HT = 000011 598 10971 11012 

IAE = 002000 8248 8081 8190 8303 

IE = 000100 7848 

ILF = 000001 614% 3276 

ILLEGL 002104 1142#@ 3257" 32462 

ILRF = 000002 8158 

IOTVEC= 000020 1548 11°2* 1183* 

IR = 000100 7598 1794 2613 2690 2720 2755 2770 2937 2957 2992 3111 3317 3127 

6044 6175 6564 6665 7921 #585 
IxE = 004000 904% 922% 
KEY1 047204 $424* 5551* 5677" 5794" S889" 6404* 6522" 6797 #6927" # %17605* #7735 ###$+1 7656* #%&88626* 
8924" 9085* 98568 

KEY2 047206 $425* 5552" 56768* 5795" §890° 6405 6573" 6796* 6926* 7606* ###7736* #+=$+. ?7657* #$£§|&8&27* 
F 8925" 9086"  9859% 

KIPARO= 172340 222% 

KIPARL= 172342 2238 

KIPAR2= 172344 2248 

KIPAR3= 172346 2258 

KIPAR4= 172350 2268 

KIPARS= 172352 2278 

KIPAR6= 172354 2298 

KIPART= 172356 2298 

KIPDRO= 172300 2118 


KIPDRI= 172302 2128 





MNDEC-11-DZRJG-A, RPO4/5/6 DSKLS CONTROLLER TST-PT 1 
OZRIGA.P11 


KIPOR2= 
KIPDR3I= 
KIPDR4= 
KIPORS= 
xXIPDRG- 


MID 
MIDDLE 
MINX = 


MMVEC = 
MOL = 
MPE = 
MR 

MRD = 
MSE = 
MSTCK = 


—X = 
“XF 2 
NCODE 
NCOUNT 
NED = 
NEM = 
WHS = 
NOPERA 
NOSYNC 
NOUNIT 
NOWORD 
NUNIT 
OcylL = 
oF 
OFREV = 
OFSETC 
OF100 
OF 200 


= 
= 
= 
OF400 = 
⸗ 
s 


172304 
172306 
172710 
172312 
172314 
172316 
001750 
042514 
042202 
00001? 
002000 
045106 
042200 
000002 


020000 
001000 
045076 
044774 
000004 


000250 
010000 
000400 
001734 
000020 
000020 
000010 


000040 
001000 
045236 
045240 
010000 
004000 
002000 
002042 
047314 
001776 
047246 
002000 
100000 
001724 
000200 
002074 
000004 
000010 
000001 
000020 
000002 
000040 
041360 
020000 
000200 


29-MAR-76 00:00 


2138 
2148 
2158 
2168 
2178 
2138 
10698 
8557* 
85408 
608 
8068 
46993 
65398 
8348 
9591 
10182 
71908 
902% 
9261* 
3301 
835% 
8252 
200% 


7618 
10634 
8378 
6978 
8368 
4854 
10515 
833% 
162% 
93728 
93738 
165% 
71648 
9038 
11258 
6917* 
10768 
5796* 
10798 
974% 
10598 
934% 
11388 
9298 
9308 
927 
9318 
9738 
9328 
84598 
8278 
7608 


86268 
6546* 
11006 
7671 
4926 
8543* 
4790 
9592 
10515 


9208 
926848 
92508 
4234 
9632 


16861 


12349 
10096 


4246 
4855 
10684 
10168 
3311 


9571* 
2110 
6564 
921% 
3420 
7136* 
1472* 
6929* 
1533* 


4257 


4256 


11054 
2768 


8630 
8587 
11012 
7674 
7111 
8567* 
4791 
9599 
10525 


4235 
9833 


1695 


10101 


4395 
4857 
10685 
10183 


9728 


3488 

7217* 
1526* 
7607* 
1534* 


4318 


11137 
2770 


7801 
7192 
8568 
4792 
9600 
10710 


4377 
10361 


10109 


4527 
4658 
10686 
10516 


71299 
1533 
7737* 
3646 


2831 


7604 
7273 
8569* 
4793 
9976 
10712 


4378 
10362 


10118 


4752 
4872 
10687 
10526 


7376* 
1583* 
7658* 


2954 


793° 

TH. 71566 7700 
6572* 8573 8574 
4819 4820 4821 
9977 9979 99990 
10713 10714 10715 


4510 4511 4758 
10691 


10126 


4753 4755 4756 
48673 9975 9977 
10691 10709 10712 


7436* +$|.(|1505* 9897 
8378* 
99058 


2970 2992 6065 
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8011 92878 
4822 4668 
9962 9983 


10729 10730 


8u35 6036 
4756 4790 
9979 9980 


10713 107279 


99568 10032 


7926 6585 


4869 
10098 
10731 


9141 


4791 
10098 
10730 


10056 


4872 
10115 
10732 


8142 


4619 
10167 
10739 


108617* 





4873 
10167 


8251 


4820 
10514 
10740 


m7? 


aA__a aA a © & a& a& & a @& a a Aa A A A A A... A..Aa..._M. 








WIDEC $11 $2050 <A, RPO4E/S76 USKLS CONTROLLER TST-FT 1 
29-¥a9-76 00309 ® 


OZRICA.P 11 

JU 047264 
Par = 000010 
Pat = 900020 
PCJSP 06002014 
PG? = 092000 
PTEL = 190000 
Plelu = v001G0 
PTELI = 000040 
PTE12 = 000020 
PIe13 = 000010 
PYE14 = 000004 
PTE1S = 900002 
PTE16 = 000001 
PTE17 = 100000 
PIE18 = 040000 
PIE19 = 920000 
PIE2 = 040000 
PIE20 = 010000 
PIE21 = 004000 
PYE22 = 002000 
PIE23 = 001000 
PTE24 = 000400 
PTE25 = 000200 
PIE26 = 000100 
PTE?7 = 000040 
PTE28 = 000020 
PIE29 = 000010 
PTE3 = 020000 
PIE30 = 000004 
PIE31 = 000002 
PIE32 = 000001 
PIE4 = 010000 
PIES = 004000 
PIES = 002000 
PIE7 = 001000 
PIES = 000400 
PIE® = 000200 
PIP = 020000 
PIRQ = 177772 
PIRQVE= 000240 
PKACK 002100 
PLU = 020000 
POSITI 045242 
PRBA 011170 
PRCA 011642 
PRCS1 010710 
PRCS2 010644 
PROST 011406 
PRE = 000020 
PRER1 011234 
PRER2 011532 
PREP3 011706 
PROF 011576 
PROG = 001000 
PRWC 011124 


7894 
sive 
7578 

1092” 

10351° 
7638 

93258 

93358 

93368 

93778 

93338 

93398 

93408 

93418 

93428 

93438 

9340 

93278 

93458 

93468 

93478 

93498 

93498 

93508 

93518 

93528 

93538 

93548 

932398 

93558 

93568 

93578 

93298 

93308 

93318 

9332¢ 

73338 

93348 
809% 

658 
1608 

1140% 
905% 

93748 

1851* 

2033* 

1751* 

1357 

1957* 
970% 

1875* 

1983* 

2054* 

2008* 
805# 

1827* 


9904 
1904 
1770 
86F 2° 
10352° 
$355 
9475 


9442 
9475 


9433 
9450 
9481 


9458 
9481 


9475 


9414 
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9907 99122 

1367 

1794 

966 3° 9714° §715° 9ille 9il2° 9299° 9290" 9559" 956u* 9622° 9823° 
12323 12376 12330 17736 173406 12349 

9499 

9422 


3927 2992 4049 4111 4170 4271 4319 4403 4448 4535 4580 


9569 9577" 9579 9590 9623" 12346 12352 


17278 


2625 3285 3742 6298 6318 6354 7670 7800 8687 at 


— — 
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DZRIGA.P11 

PRO = 000000 
PRI = 000040 
PR2 = 000100 
PR3 = 000140 
PR4 = 000200 
PRS = 000240 
PR6 = 000300 
PR7 = 000340 
PSs = 177776 
PSEL = 002000 
PSU = 000001 
PsW = 177776 
PUTREG 042140 
PWRVEC= 000024 
P12 045256 
P22 045260 
P24 045262 
P3 045254 
RAW = 000020 
RcOM 053520 
RCYL 047304 
RDCHR = 104410 
RDHEAD 047322 
RDLIN = 104411 
RDOCT = 104417 
RDY = 000200 
READ 050114 
READAT 002066 
READIN 002102 
RECALI 002046 
REDATA 053522 
REFOR 002070 
REGADR 042204 
REGSA1L 056142 
REINTO 003154 


29-MAR-76 00:00 


83% 
848 


2711 
6176 
9143 
1166* 
9444* 
9452* 
9460* 
9435* 


10764* 
9966* 


113108 
2522 
2621* 
3388 
3952 
4063 
4263 
4386 
4534* 
4652* 
$032 
$563 
6015 
6616 
7062* 


1214* 


8352*° 


2771 
6308 
9518 
11521*° 
9474 
9479 
9480 
9473 


9671 
2615 
6556 
10004 
6533 


5704 

1806* 
2995* 
3533* 
4609* 
6333* 


2543 
2628* 
3875* 
3991* 
4110* 
4271* 
4403* 
4536* 
4671 
$135 
5689 
6131 
6628 
71064* 


8459 


2832 

6346 

9586 
11522* 


9688 
2700 
6558 
10006 


6624 

1908* 
3030* 
3802* 
4680* 
65418 


2550 
26 29* 
3876* 
3992*° 
4111* 
4272* 
4404* 
4549 
4732 
5138 
5750 
6136 
6629 
1077 


2899 
6666 


11531* 


115138 
2712 
1064 

10008 


8061 

1930* 
3040* 
39086* 
4912° 
545° 


2602 
2630* 
3877* 
3993* 
4112* 
4286 
4417 
4555 
4676* 
5139 
5880 
6143 
6690 
7083 


2938 
6886S 


11537° 


3027 
7664 
10010 


2289 
3070* 
3962* 
*€311* 
9203* 


2611* 
2641 
3893 
4008 
4139 
4293 
4423 
4579* 
48679* 
$147 
568A 
6144 
€704 
7146 


2958 
6959 


11549* 


3029 
7814 
10051 


2493° 
3080*° 
4023* 
6559* 
9214* 


2614° 
2645 
3899 
4015 
4146 
4317* 
4447* 
45#0* 
4881* 
5258 
$902 
6216 
6736 
7147 


3264 
7641 


11550*° 


3037 
6580 
10055 


2559* 
3116* 
4073* 
6569° 
92274* 


27615* 
3356 
3926*° 
4039° 
4169* 
4316* 
4446* 
4561* 
4862* 
$259 
5940 
6267 
6809 
7176 
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3275 
7771 


3039 
8665 
100908 


2654* 
3133° 
4154¢ 
6577* 
9235* 


2616° 
3365* 
3927* 
4040° 
4170* 
4319* 
4449* 
4582* 
4883* 
5262 
5996 
6281 
6870 
7227 


3312 
7977 


3667 
8675 
10773 


2785* 
2160* 
4200° 
7091° 
9306° 


2617° 
3366* 
3926*° 
4041* 
4171* 
4320° 
4450* 
4594 
4897 
5263 
6002 
6395 
1047 
7228 


5354 
65148 


3069 
6717 
10781 


2792* 
3166* 
4302° 
1673* 
12292 


2616* 
3366* 
3929 
4042° 
4172* 
4321* 
4462 
4599 
4903 
5270 
6003 
6396 
1059 
7257 


3077 


2650* 
3193° 
4348* 
7603* 
12326 


2619* 
3369*° 
3930*° 
4043* 
4186 
4334 
4467 
4642 
5024 
5436 
6007 
6417 
7060* 
7316 


ar 





— — — — — — — — — — — — — — — = — — —— 


— 








MNDEC-11-DZRJG-A, RP04/5/6 DSKLS CONTROLLER TST-PT 1 
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OZRJGA.P11 

RELEAS 002052 
RESVEC= 000010 
RETCL 002076 
RHAS 001656 
RABA 001634 
RHBAE 001700 
RHCA 001652 
RHCC 001676 
RHCS1L 001640 
RHCS2 001636 
RHCS3 001702 
RHD® 001630 
RHOST 001644 
RHDS1 001662 
RHOT 001664 
RHEC1 001670 
RHEC2 001672 
RHERI 09164? 
RHER2 001646 
RHEP3 001654 
RHLA 001674 
RHMR 001660 
RHOF 001650 
RHSN 001666 
RHWC 001632 


7319 
7920* 
8070 
8193* 
8939 
11299 
150% 
11399 
10288 
10118 
5689* 
8043* 
10408 
1026#% 
$229* 
71626* 
10368 
10218 
3987* 
$352* 
8644 
1012 
1984* 
6286* 
10418 
10098 
2850 
10238 
5218* 
7754* 
10308 
10318 
1629 
10338 
10348 
10228 
8333 
10248 
1027#% 
10358 
10298 
3570* 
4253* 
4574* 
1699* 
8298 
10681 
10258 
5567* 
8169* 
10328 
10108 
3375 
3866 
4178 
4542 


7395 
7921* 
6080* 
6194* 
9157 
4637 


4301 
1378 
1851 
5610* 
6148* 


2033 
5346* 
7756* 
3837 
1751 
4097* 
6307* 
9253* 
1358 
2009* 
6429* 


1303 
28695* 
1957 
$337* 
7675* 
3293 
1479 
1631 


"9515 


3423 
1422 
8647 
1983 
2054 
3929 
1897 
3590* 
4312* 
4633* 
8010* 
9265* 


2008 
5693* 
8274* 
1614 
1827 
3397 
3685 
4200 
4564 


7396 
7922° 
6081* 
8205 
9182 


1418 

2270* 
5902* 
8256* 


2277* 
5444* 
768 3* 
4240 
2118 
4107* 
7034* 
9266* 
1419 
2034* 
6546* 


2266* 
2905 
2274* 
5439* 
7924 
3427 
1481 
1634 


3482 

1778* 
9199 

2275* 
2276* 
4042 

2279* 
3832* 
4372* 
4647* 
8034* 
9295* 


2276* 
5814* 
8343* 
1663 
2269* 
3421 
3908 
4262 
4587 


71447 
7923* 
6082* 
P211 


6276 

2587* 
6417* 
6839* 


2594* 
5571* 
7885* 
8520 

2272* 
4257* 
71046 

9294* 
1478* 
2055* 
7029*° 


2284 
2909 
2591° 
5566* 
8054* 
3495 
1487 
1636 


3491 
1875 
9203 
2592 
2595* 
4172 
2280* 
3920* 
4377* 
4697* 
8035* 
9563 


2593* 
5906* 
8943* 
1665 
2521 
3423 
3937 
4279 
4609 


7448 
7924* 
8083* 
#293 


6345* 
3164 

6535* 
8939* 


3349* 
5697* 
8065* 
9302 

2517* 
4267* 
7056* 
9296* 
1590* 
2271*° 
7030° 


2686 
2944 
3347* 
5692*° 
8159* 
7673 
1489 
1664 


9509 
2273* 
9209 
3565" 
3568* 
4321 
2516* 
3973* 
4378* 
4746 
8036* 
9631* 


3343* 
6421* 
9131° 


2536 
3442 
3962 
4302 
4641 
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7477 

7932* 
8084* 
8303* 


3346* 
6572 
91286* 


3567* 
$615* 
8170* 
9306 
2526* 
4381* 
7070 
9664 
1726 
2588* 
7039* 


2763* 
2964 
3564* 
5613* 
8264* 
7803 
1492 
1666 


2590* 
9214 
6271 
6273 
4450 
2596* 
4033* 
4395* 
4925* 
8075 
9832* 


3566* 
6540* 
9259* 


2559 
3465 
3982 
4327 
4658 
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7525 

7934° 
608s? 
8304* 


3560* 
6577 
9256* 


38652* 
5909* 
6279* 


2589° 
4390* 
7091 

9702 

1727* 
2606* 
86563* 


2764* 
35586* 
38635* 
5905* 
8642* 
8646 
1494 
2130 


3563* 
9221 


4582 

2597* 
4093* 
4396* 
5349*° 
6140* 
9633* 


4258* 
68613* 


2586* 
3461 
4000 
4348 
4680 


7526 
1936* 
8096 
8305* 


4975° 
6809* 


38661*° 
6424* 
6282° 


3352* 
4513* 
7681 
9834* 
1752® 
2765 
6582 


2778 
3593 
4722* 
6420* 
8942* 


1514 
2132 


6269 
9224 


4652 

3244* 
4164* 
4442* 
7055* 
§141* 
9972 


4725* 
6945* 


2601 
3482 
4023 
4385 
4731 


78699 
71937* 
8102 
8306* 


5085*° 
6943* 


3978* 
6543* 
8646* 


3362* 
4522* 
7611 
10363* 
1776* 
2951 
6645 


2779 
9672 
4747 
6539* 
9125*° 


1592 
2136 


8179 
9229 


4766 
3261* 
4229* 
4503* 
7110*° 
8142* 
10245 


4993* 
7040* 


2634 
3489 
4050 
4410 
4890 


7911° 
71936* 
6160 

8307* 


5207* 
7037* 


4240* 
6617* 
6946* 


3562* 
4637* 
8077* 


1826* 
3484* 
9256* 


2785 


4767 
6612* 
9257* 


1594 
2138 


8198 
9235 


4836 
3353* 
4234* 
4510* 
7191* 
6185 
10360 


5106* 
7625* 


2654 
3491 
4073 
4432 
4912 


7912* 
7952 
8190 
6318 


5330°* 
7621° 


4724* 
6946° 
9120* 


3836* 
4646* 
8167* 


1852* 
3561* 


2792 


4838 
6944* 
9293* 


1620 
2141 


@220 


3419* 
4235* 
4511* 
727 2* 
8250* 
10361* 


$226* 
7755* 


3151 
3510 
4102 
4455 
4973* 


7916* 
7958 
6191° 
8324 


5436* 
7751* 


4994* 
1027 
9260* 


3671° 
4751* 
8300* 


1876* 
$357 


2626* 


4982* 
7038* 


1624 
2143 


8292 


3476* 
4246* 
4527* 
7349* 
8251* 
10362*° 


5347* 
7876* 


3345* 
3533 
4132 
4478 
5008 


7917* 
8042 
6192* 
8639 


$563* 
78672° 


5107* 
7041* 
9292* 


3977* 
5350* 
6578 


1958* 
4285* 


2640 


$096° 
1624* 


1626 


8311 


3569* 
4247* 
4526* 
7567* 
8252* 
10511 


5440* 
8064* 


3357 
3559* 
4154 
4517 
5063° 





cc? 








* 
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DZRJGA 


RA70 


RH70CK 
RKEY1 


SECGAP 
SECOTR 


SECTR 
SEECOM 
SEGPER 
SELECT 
SELTST 
SERCH 
SETOSF 
STLOTB 
SKEY1 
SKEY2 
SKI 

SN 
SND1 
SPACE2 
SPACES 
SRO 
SR1 


Pil 


002040 


005364 
047310 
047312 
= 000004 
052160 
053516 
052240 
001626 
053632 
002036 
047306 
047302 
047036 
047116 
002010 
043226 


002012 
= 100000 
= 104413 
052430 
052420 
000100 
001000 
000200 
002000 
000400 
053246 
051020 
047202 


053244 
002072 
052350 
002002 
007444 
002054 
044216 
051116 
052424 
052426 
= 040000 
001742 
005326 
062425 
062417 
= 177572 
= 177574 


29-MAR-76 00300 


5118 
6534* 
8089 
11168 
7908 
12708 
99308 
99318 
8168 
103508 
107588 
103658 
999% 
1215 
11148 
99298 
99278 
96218 
986368 
108658 
2520 
4049 
4640 
9310 
10838 
7928 
115148 
105018 
104978 
8608 
693% 
8818 
684% 
662% 
9267 
4951 
5422* 
6521* 
8922* 
4749* 
11378 
103738* 
10808 
1437 
11308 
7141 
2818 
104998 
10500# 
973% 
10668 
1221 
2193 
2187 
2048 
2058 


5204* 
6806* 
6111 

1272* 


9968* 

9969* 

7060 
10365* 
10763* 


1215* 
107918 
1591* 
9967* 
9993 
9836* 


1666* 
2535 
4101 
4657 
87998 
1665* 
1784 


10506* 
10504* 


9844 
5062 
5423* 
6795* 
8923* 
4771 
38636 
103958 
1167* 
1537# 
4726 
7222 
26238 
10506* 
10507* 


12568 
116838 
2188 
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5240 
66386 
6146* 
1351 


10005 
10007 


10367* 


9682 
10797 
1597* 
10003 
9996 
9836* 


2437 
2600 
4131 
4729 


2449 
1787 


105862 


10374 
5182 
5549* 
6796* 
90863* 
4841 
3977 

10545* 
1169* 


7304 
2843 


2196 


5326* 
6942* 
6256* 
1715 


9689* 
3843 
10030 


2439 
2633 
4177 
4669 


2451 
2700 


106748 
5306 
$550* 
6925* 
9084* 

106728 
4241 

10556* 
1274 


731 
103138 


2197 


5435* 
7036* 
8518 
2681 


9708 
7851 
10041 


3750 
3356 
4261 
7045 


3761 
4878 


103078 
5675* 
6926* 
9841 

10674* 
9294 


1537 


7441 


2198 


$465 
7620* 
8520 
2747 


10797* 
7645 

10054 
3752 
3374 
4278 
7069 


3763 
6556 


10510 
5676* 
7603* 
98578 

10682 


1570 


7510 


116818 


5562* 
1750° 
8636* 
2812 


7681 
10064 


3441 
4326 
7697 


6558 


5792* 
7604* 


0367 


90638 


$592 
7671* 
6936° 
2686 


71930 
10573 


3509 
4384 
71943 


7922 


5793* 
717133* 


56e6* 
78698 
9126* 
2929 


#276 
10576 


5687* 
71734* 
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5716 
7944 


9255* 


3014 


10622 


3884 
4454 
6068 


sees 
7654*° 


$809 
1967 


3099 


10626 


3936 
4516 
8178 


6402* 
78655* 


$901* 
8041* 


6505 


3981 
4541 
8197 


6403* 
6824* 


6416* 
8069 


3999 
4586 
6291 


6520*° 
8825* 


de 








MNDEC-11-DZRJG-A, RP04/5/6 DSKLS CONTROLLER TST-PT 1 


OZRIGA.P11 

SR2 = 177576 
SR3 = 172516 
SSECT? 052422 
SSYN 047212 
STACK = 001000 
STAPT 004244 
STARTA 004466 
STKLMT= 177774 
SWR 001140 
SWREG 000176 
Swo = 000001 
suoo = 000001 
swol = 000002 
SWO2 = 000004 
swo3 = 000010 
Sswo4 = 000020 
SwOS = 000040 
SWO6 = 000100 
Sw0O7 = 000200 
SswoR = 000400 
swo9 = 001000 
Swi = 000002 
SW10 = 002000 
SW11 = 004000 
SW12 = 010000 
SW13 = 020000 
SWw14 = 040000 
Swif = 100000 
Sw2 = 000004 
Sw3 = 000010 
sw4 = 000020 
Sw5 = 000040 
SW6 = 000100 
SwW7 = 000200 
sw8 = 000400 
sw9 = 001000 
TAGDTE 002030 
TRITVE= 000014 
TOF = 000040 
TESOTE 002026 
TESTAD 041356 
TIMCNT 043104 
TFVEC = 000060 
TMPILL 002022 
TOLGAP 052124 
TOTALA 002020 
TPVEC = 000064 
TRAPVE= 000034 


29-MAR-76 00:00 


1178 
58650 
10842 


916% 
10011 


8761 
11034* 
3245* 
6921 
1426* 


1186* 


9999 
1296 
2086 
40869 
5523 
7107 
7721 


1199* 
5964 
10844 


1263 


2865 
2865 
8558 


1396 


10568 


8766 
11035* 
3248 
71596 

1430* 


1187* 


1346 
2511 
4225 
5649 
7134 
7834 


1201 
6477 
10850 


11057 


2866 
8628 


1435 


10826* 


3250* 
71726 
3575 


1723 
2579 
4368 
5780 
7188 
8007 


1207* 
6981 
108657 


11096 


5852 


2183 


3255 
7679 
3720 
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1748 
2676 
4499 
5671 
7215 
8029 


1263 
7661 
11057 


11119 


5966 


4116 


3257 
10241 
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1770 
2742 
4629 
5992 
7269 
0135 


1270 
7791 
11096 


6479 


3258* 
103189 


1824 1648 
3019 3058 
4694 4717 
6125 6257 
7296 7346 
6245 

1312 1396 
7993 6556 


11151° 11314 


6983 7663 


1872 
3149 
4922 
6386 
7373 


1435 
8628 
11321 


1193 


1954 
3161 
4948 
6500 
7434 


2183 
8899 
11326 


1995 


1960 
3241 
$059 
6609 
7302 


2664 
9500 
11330 


6901 


2005 
3336 
5179 
6769 
1564 


4116 
9502 
11529 





MNDEC-11-DZRJG-A, RP04/5/6 DSKLS CONTROLLER TST-PT 1 


OZRIGA.PL1 


TRE 
TRK 
TRK1 
TRK10 
TRK2 
TRK20 
TRK4 
TRIVEC 
TSECC 
TSECCG 
TSTNM 


TtsTl 
TST10 
Tst100 
TsT101 
TST10? 
TST103 
TST104 
TST105 
TST106 
TST107 
Ttstl1l 
TST110 
TST111 
TST112 
Tst1i3 
TST114 
TST115 
TST116 
TsT117 
TST12 
TST120 
TST121 
Tst122 
TST123 
TST13 
TST14 
TST15 
TST16 
TSsT17 
TST2 
tTst20 
Tst?1 
TST22 
TST23 
Ttst24 
Tst25 
TST 26 


040000 
047152 
004000 
040000 
010000 
100000 
020000 
000014 
002024 
045234 
002032 


005500 
010666 
034512 
034546 
034670 
034724 
035046 
035102 
035202 
035236 
010732 
035336 
035464 
035604 
035640 
036254 
036310 
036720 
037546 
011102 
077602 
040134 
040460 
041010 
011146 
011212 
011256 
011444 
011510 
005754 
011554 
011620 
011664 
011730 
012336 
013362 
013524 
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7918 
9843* 
8858 
6838 
6868 
6soR 
8878 
152¢ 
10994 
93698 
1110¢ 
1673* 
2682* 
4226* 
5650* 
7109* 
7722 
12307 
12346 
1275 
1717 
71068 
71318 
71878 
72128 
72688 
72938 
73458 
73708 
17688 
74318 
74998 
75638 
75838 
16958 
77189 
76338 
80068 
18228 
9029 
91349 
8244 
83508 
1646# 
18708 
18938 
19518 
19778 
13448 
20038 
20238 
20498 
20858 
22618 
2490 
25768 


2700 
9646% 


10250 
9493 
1297* 
1695* 
2925* 
4369* 
S777* 
7135* 
7635* 

12310 

12349 
12948 
17468 


25108 


2709 


10766 
10099 
1347* 
1955° 
3010* 
4500* 
5781*° 
7189 
6006* 
12314 
12352 
$427 


3314 


10776 
10111 
1376* 
1981* 
3057* 
4630* 
$873* 
1216* 
#030* 
12317 
12357 


6556 


106186 

10116 
1396* 
2006* 
3095* 
4695* 
5993* 
7270° 
8136* 

12319 


6558 


10126 
1559* 
2031° 
3146* 
4716* 
6126* 
7297 
R246* 

12320 


7922 


10178 
1679* 
2052* 
3182*° 
4923° 
6256* 
7347° 
#464 

12323 


10193 
1711° 
2087* 
3242° 
4949 
6386* 
7374* 

12292 

12326 


10252* 
1724* 
2512* 
3339° 
=060* 
6501° 
7435* 

17294 

12330 
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10264* 
1749° 
2580* 
3415° 
5180° 
6610* 
7503* 

12296 

12333 


10768* 
1771° 
2677° 
3953 
5304* 
677,1° 
7565* 

12299 

12336 


10776* 
. 


7592* 
12302 
12340 


108622* 
1849* 
2806° 
4090° 
$524* 
7021° 
7697* 

12305 

12343 








⏑⏑ le 


X — > > & 


MWDEC-11-DZRJG-A,RP04/5/6 OSKLS CONTROLLER TST-PT 1 


OZRIGA.P11 

Tst27 014074 
tst3 006040 
TstT30 014287 
TST3i1 014500 
TST32 014740 
TST33 015064 
TST34 015364 
Tst35 015522 
TST36 015647 
TST37 016020 
Tst4 006112 
TST40) 016144 
TsT41 016770 
TST42 016564 
Tst43 017010 
TST44 017400 
TST45 02053? 
TST46 021450 
TST47 022124 
Tsts 007460 
TSTSO 022532 
TSTS1 023076 
TSTS2 023442 
TSTS3 023620 
TSTS4 023654 
Ttst55 024542 
TSTS6 024576 
TSTS7 025106 
TST6 010232 
TST60 025444 
TST61 026004 
TST62 026250 
TST63 026634 
TSTE4 027220 
TST65 027604 
TST66 030144 
TST67 030510 
TST? 010576 
TST70 }«=—§.: 031040 
TST71 031346 
TST72 031736 
15173 032302 
TST74 032646 
TST75 033254 
TST76 033656 
TST77 © 034206 
TTNO = 000122 
TUF = 000100 
TY 047316 


TYPOS = 104405 
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26758 
1353 
2683 
2749 
2614 
2683 


13738 
2722 
2789 
26818 
2906 
2990 
30558 
3045 
3132 
13928 
31798 
32398 


3827¢% 


15558 
44968 


5037 


5152 
$275 


$501 
5626 
5754 
5853 
5267 
17108 
61178 
62558 
63°58 
64998 
66018 
67668 
6888 
70188 
13478 
19558 
30108 
45008 
57818 
71°98 
R0088 
9178 


1525 


27418 
28078 


29238 
30068 


3078 
31469 


3376 


5os6e 


51768 
53028 


55228 
56488 
57758 
58708 
$3858 


6909% 


13768 
19819 
30578 
46308 
5873 
72168 
90308 


1609 


30938 


83°6 


13968 
20068 
30958 
46958 
59938 
72708 
9136# 


4125 


15598 
20718 
31488 
47138 
61268 
72978 
62468 


8358 


16798 
2052 
3182¢ 
49238 
62568 
73478 


9364 
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1711¢ 
20878 
3242¢ 
49498 
€3°68 
73748 


9374 


17248 
25128 
33398 
504608 
65018 
74358 


9416 


17498 
25808 
34158 
51°08 
66108 
75038 


11382 
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17718 
26778 
35538 
53048 
67719 
75658 


115068 


16258 
27439 
38298 
53978 
69158 
75928 


18498 
28088 
40908 
55248 
70218 
76978 


16738 
26828 
42268 
50506 
71088 
77228 


et 
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DOZRIGA.P 11 

TVPE = 104401 
TYPOC = 104402 
TYPON = 104404 
TYPOS = 104403 
T.SCO® 042516 
UN 006030 
UNIT 001774 
UNITS 001754 
UNITSL 002004 
UNLOAD 002044 
UNS = 040000 
UPE = 020000 
US1 = 000001 
US2 = 000002 
USs4 = 000004 
UWR = 000010 
vuF = 000002 
vU30 = 010000 
vv = 000100 
@AIT.T 043106 
WAT = 104415 
wc 001706 
aCe = 040000 
cr = 000040 
acre 051100 
acu = 000001 
wCyL 052336 
@Eccl 052116 
WECC2 052120 
@KEYV1 052342 
aFEY2 052344 
aLé = 004000 
worn 050110 
@RCHDA 043577 
WRCHDT 002060 
WRCHEK 002056 
@RCHHD 043260 
WROATA 050506 
@RFROY 002110 


29=MAP-76 00:00 


1223 
1409 
1645 
2207 
5574 
7628 
8466 
9684 
11121 
11363 
1326 
11378 
11505¢ 
2190 
86288 
1357* 
10758 
1876 
2754 
3919 
8357 
10748 
10818 
11268 
6238 
1668 
7538 
71548 
7558 
9698 
9638 
9058 
8028 
87538 
2766 
10508 
1678 
819% 
5430 
8832 
8938 
4961* 
5013* 
5019* 
4964* 
4965* 
325% 
9989* 
10772* 
6167 
11328 
11318 
6037 
9903 
11438 
3511 


1278 
1413 
1651 
3811 
5605 
7758 
8472 
9696 
11132 
11365 
1515 
115038 


2203 
11514 
1358* 
1282* 
1958 
2769 
4032 
83F0 
1465 
1283* 
4097 


3123 


2428 
11516 
2952 
3422 
6048 


$557 
#931 
911% 
4968 
51286* 
5129* 
5074* 
$075* 


9993° 
10780* 
6656 
6851 
8951 
86238 
102298 
2537 
3517* 


1233 
1441 
1657 
4119 
5700 
7689 
8473 
9694 
11142 
11368 
1615 


11504# 


13608 
1532* 
1984 
2830 
4124 
8385* 
1470 
1539 


3127 


2529 


3309 
3456 
6179 


5683 
9090 


§071* 
5252* 
5253* 
5195* 
5196* 


10001* 
89218 


10467 
2543* 
3525 


1237 
1445 
1683 
4736 
5731 
8057 
8477 
9698 
11153 
11370 
1621 


1529* 
2009 
2936 
4163 
8563 
1532 


3286 


3430 
3490 
6665 


5600 
10009 


5078 
103158 
103168 

5319* 

5320° 


10003* 


2551 
38°6 


1241 
1449 
1687 
4976 
5617 
8162 
8461 
9704 
11172 
11385 
8465 


1565 
2034 
2956 
4311 
8650 
1577 


3368 


3433 
3524 
6669 


5695 
103108 


$192° 
12343 
12343 
1038388 
103998 


10005° 


2635 
3693° 


MACY11 30(1046) 


1245 
1453 
1691 
5016 
“911 
8267 
8488 
9710 
11216 
11390 
8471 


1582*° 
2055 
2991 
4441 


2162 


6298 
3498 
6693 
6410 


5199 


10007* 


2641* 
3900 
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1249 
1503 
1697 
5099 
6261 
8353 
R492 
10792 
11219 
11454 
9665 


154 
2283 
3110 
4573 


2176 


€316 
3501 
€697 
6528 


5316* 


10009 


2646 
3338 


1253 
1510 
2197 
5176 
6426 
8359 
6846 
10933 
11223 
115028 
9683 


1608 
2299 
3116 
6043 


8381 


6355 
7682 
9519 
6803 


5323 


100506* 


3376 
3946° 


1276 
1516 
2188 
$221 
6545 
8372 
6946 
10976 
112866 
11551 
9703 


1727 
2325 
3121 
6174 


7671 


7812 
12310 


7442* 


6932 


10u54* 


3392* 
7953 


1315 
1523 
2193 
$250 
6820 
6375 
9115 
11051 
141290 


9709 


1752 
2608 
3126 
6286 


7674 


115168 


7511° 


103868 


100848 


3389 


4001 


1319 
1604 
2196 
5340 
68651 
6414 
9660 
11063 
11316 


10796 


1993 
2612 
34864 
6563 


7601 


7611 


10094 


3443 
4008* 


1401 
1610 
2197 
5447 
6946 
9417 
9666 
11117 
11324 


11120 


18676 
2669 
3585 
6664 


7804 


7741 


10107* 


3449° 
4016 


1405 
1616 
2196 
5478 
7024 
8460 
9676 
11118 
11346 


11354 


1652 
2719 
3634 
7030 


8087 


7862 


10124* 


3457 
4051 


as 
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4057* 4064 4133 4139* 4147 4179 4186" 4191 4280 42866" 4294 4328 4334* 

4339 4411 4417* 4424 4456 4462* 4468 4543 4549* 4556 4588 4594* 4600 ( 
4659 4665* 4672 4691 4697" 4905 4974 5084 $205 $329 5480 5496 5607 

5623 $733 5749 $805 5806 5610 $926 $929 $933 5934 $939 6063 6070 

6071 6075 6082 60863 6090 6195 6201 6208 6209 6215 6443 6444 6446* ( 
6452 6715 6721 6728 6729 6735 6853 6869 6938 6939 6943 1037 7071 

7077* 7084 7152 7161 7162 7233 7242 7243 7309 7310 7333 1386 7387 

7410 7453 7462 7463 7516 7517 7546 7616 7617 7621 7746 7747 7751 ( 
7867 7868 7872 7912 7917 7945 7952* 7959 8090 8096" #8103 8147 6199 

8205* 8212 6257 8312 8318" #325 9156 9256 


WRHEAD 052432 10385 105048 ( 
WRIDAT 002062 11338 $5820 6951 7631 7761 7892 8271 
WRIFOR 002064 11348 4990 $103 5225 5344 1034 8166 9253 
WRITE 050246 10018 10029 10156# 10254 10260 10266 10270 10273 10550 10570 10584 10597 10609 ( 
10620 
wRL = 004000 8078 
wRU = =_: 000400 9018 9198 ( 
WSECTR 052340 4963* S073* 5194*  5318* 10370 103878 
WSSYNC 051066 103038 
wsu = 000004 8958 9138 ( 
wrRe 052274 10372 103758 
wwORD 050344 10019 10023 10026 10030 10037 10042 10046 101538 10202" 10255 10261 10267 10271 
10274 10551 10555 10572 10585 10598 10610 10621 ( 
x 047210 5427* 5554* 5680* 5797* 5892* 6407" 6525 6800* 6930* 7608 7738* #7859"  #8829* 
8927* 9129* 9146 98608 9895 
KE2 007106 1433 1462¢ ( 
¥ 047250 99068 
ZCODE 045250 93818 9574" 12352 
ZER = 000400 408 9583 , ( 
ZWORDS 050564 102288 10248* 
$AUTOB 001134 258@ 1267* 11110 11239 
SPDAD? 001122 2538 2694*  2703* 2715" 2723* 2759% 2774* 268352 2903 2941 2961" 3267* 327¢° ( 


3293*  3317*  $S$357* 671% 8677" 8681" 8693" 8698*  8701* 8720* #=%§67277* +«;%}8733*  8736* 
12299 12302 12323 
S$BODAT 001126 255% 1380* 1381 1783* 1784 1796* 1797 1803" 1604 1907* 1929*% 2180* 2200 | 

2202 2290" 2291 2305" 2306 2315" 2316 2327" 2328 2338" 2339 2348" 2349 

2358* 2359 2368* 2369 2376" 2379 2386" 2389 2398" 2399 2406* 2408 2417* 

2418 2427" 2436* 2439 2450" 2451 2461* 2462 2472" 2473 2784*  2791* 28648* { 
2905* 2907 2976" 2984" 2994" 3026* 3027 3036* 3037 3065* 3067 3076* 3077 

3112* 3113 3129* 3130 3156* 3157 316 4* 3165 3189* 3190 3197* 3198 3600* 

3601 3611* 3612 3622* 3623 3636* $3637 3651* 3653 3662* 3663 3672* 3673 ( 
3682* 3683 3692" 3693 3702* 3703 3712* 3713 3722* 3723 3731° 3732 3741* 

3751* 3752 3762* 3763 3772* 3773 2782* 3793 4766* 4768 4836* 4839 5006* 

$118* 5240 5465* $592" S718" S841* $946* 6313" 6459" 6554* 6556 6566" 6567 { 
6572* 6574 6838* 6969" 7652 7675*  7782* ##7805* 7995" 8571"  &8573* 8575 6577* 

8771* 86891* 9199" 9200 9209* 9210 9271* 9222 9229" 9231 9302* 9303 10023* 

10042* 10544* 10555* 10577* 10591" 10601* 10614* 10025" 12292 12296 42302 12307 12320 ( 
12326 12330 12333 12336 12357 


$BELL 001716 2878 11063 11232 11316 11336 

SCHARC 054646 10978* 10988" 10995 11004" 110098 | 
SCKSWR 055160 110968 11510 

SCMTAG 001100 2418 1175 1176 1184 1190 §=©1191 

$CM1 = 000006 2738 = 2748 )«=o275# = 2768 »«= 2778 )3= 2788 =. 2798 | 
$CM2 = 000014 2738 «= 2740 2756 = - 2768 »3=0 2778 39.2788 = 2798 

$CM3 = 000006 2718 = 273 

SCM4 = 000006 279 «= 2808 = «2818 2020 = 2838 2040 2858 an 
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SCNTLC 
SCNTLG 
SCNTLU 
$CRLF 


$0BLK 
$DOAGN 
SOTBL 
SENDAD 
SENDCT 
SENDMG 
SENULL 
$eoP 
$EOPCT 
SERFLG 
SERMAX 
SERROR 
SERRPC 


SERRTR 
SERRTY 
SERTTL 
Sescae 
SFILLC 
$FILLS 
S$GDADR 
$GDDAT 


$GET42 
$GTSw@R 
$4D a 
SHIOCT 
SICNT 
$TLLUP 
SINTAG 
SITEMP 
StF 
SLPADR 
SLPERR 
$MATIL = 
SMNEW 
SMSWR 
SMXCNT 
SNULL 
SNETST= 


055731 
055743 
055736 
001223 


05442? 
041332 
054412 
041322 
041270 
041341 
041336 
041234 
041262 
001103 
001115 
0£6132 
001116 


001226 
056360 
001112 
001214 
001156 
001155 
001120 
001124 


041312 
055250 
000000 
056130 
001104 
057136 
001135 
001114 
001224 
001106 
001110 
ge2eaane 
055761 
055750 
054204 
001154 
000001 
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11051 
11117 
11142 
2898 
11370 
10899 
8410 
10902 
178 
94128 
$372 


1742 
19718 


11132 
112348 
112338 
1523 
11390 
10933 
8419 
109378 
84218 


8414 
$417 
1458 
8413 
8560 
1192* 
1330 
11316* 
12314 
12352 
11360 
113458 
8363 
1191* 
10981 
11012 


1383* 
?314* 
2425* 
3029* 
3621*° 
3721* 
6565* 
8580* 
10543* 
12336 


11508 


112928 
10661* 
11537 
11115* 
11320* 
11012 
1193* 
1194* 
1263 
112378 
112358 
10874# 
10983 
12°90 
17629 
1973 


CROSS REFERENCE 


112328 


2207 


109418 
84258 


84298 
84268 
8379 


10306 
108648 
113078 
11319* 
12317 
12357 


8365* 
10369* 
11012 


1787* 
2326* 
2437* 
3039* 
3635* 
3723 
6567 
e586* 
10554* 
12340 


10862 
115568 
11134 
11338 
11223 
1557* 
3263* 
10867 


11012 
13378 
1764 
19978 


6472 


04028 


108646 
10870* 


11320 
12319 


11317* 
11333 


1795* 
23278 
2449* 
3069* 
3637 
3730* 
6576* 
8890* 
10576* 


10864* 


11154 
11349 
11232 
8487* 
3474* 
10965 


1339 
1816¢@ 
1999 
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10977 


10848 
10875 


11338 
12320 


11338 
11335 


1797 
2337* 
2460* 
3079° 
36 40* 
3739*° 
6968* 
9204* 
10590* 


10674 
11239 


11293 
8498 
6278* 

11326 


13708 
1618 
20228 


11012 


108654* 


11352 
12323 


11338 


1807* 
2347* 
2471* 
3116* 
3650* 
3750*° 
7651* 
9215* 
10602*° 


11338 
10852* 
6343* 


13898 
1640¢ 
2024 


11153 


10875 


12292 
12326 


1904* 
2?357* 
2782* 
3117* 
3653 
3761* 
7674* 
9275* 
10613* 


10867 
8470 


15438 
1842 
20438 


11232 


11311° 


12294 
12330 


1928* 
2367* 
2790* 
3126* 
3661* 
3771* 
7781* 
92734* 
10626* 


10872 
8497* 


1345 
1864? 
2045 


11293 


11336 


12296 
12333 


2178* 
2377* 
2649* 
3159* 
3671* 
3781* 
7804* 
9305* 
12292 


10874 
10652 


16708 
1666 
20778 


11324 


12299 
12336 


2185 
2387*° 
2906* 
3167* 
3661° 
5640° 
7984* 
9998° 
12294 


10860* 


1672 
188679 
2079 


41338 


12302 
12340 


2189 
2397* 
2907 
3192° 
32691* 
5945* 
8566* 
10022*° 
12296 


10874 


17048 
1889 
22508 


11346 


12305 
12343 


2266°* 
2407* 
2975* 
3200* 
3701* 
6312* 
8566* 
10039* 
12326 


11332 


1706 
19458 
2252 


11365 


12307 
12346 


2291 
2408 
2983 
3599° 
3711*° 
6456* 
6570 
10041* 
12330 


17408 
1947 
25018 





MWDEC-11 -DZRJG-A,RP04/5/6 DSKLS CONTROLLER TST-PT 1 
DZRJGA-P11 


SOCNT 
SOMODE 
SOVER 
SPASS 
SPOWER 
SPWRAD 
SPHRDN 
SPWRMG 
SPWwRUP 
SQUES 
SROCHR 
SRODEC= 
SROLIN 
$RDOCT 
$RDSZ = 
SREGAD 
$REGO 
S$REGi 
SREG2 
$REG3 
$rec4 
SREGS 
SRTWAD 
$R2A = 
SSAVRE= 
SSAVR6 
$SCOPE 
S$SETUP= 


$ssil = 
$STUP = 
SSVLAD 

$SVPC = 
$SsuR = 


SSWRMK= 
STIMES 
$TKB 


056676 
056700 
054170 
001100 
057144 
057132 
056772 
057126 
057044 
001222 
055522 
seeene 
055612 
055772 
000011 
001160 
001162 
001164 
001166 
001170 
001172 
001174 
041334 


seeene 
genene 


057142 
053714 
000117 


000000 
177777 
054142 
000200 
167770 


000000 
001212 
001146 
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2503 
30028 
3330 


25708 
3004 


115218 


11537#% 
11012 
11511 


11512 
11513 


11538 
106158 
1181 

11061 


108668 
181 
11 
1191 
1647 
2742 
3828 


1190* 
11015 


CROSS REFERENCE TABLE -- USER SYMBOLS 


2572 
30498 
3408 
46194 
$295 
61078 
6902 
73578 
7820 
114668 
11430 
10853 
8371* 


11549 


11172 


11539* 


1182 
11091 


41 
1193 
1871 
2808 
4089 
5523 
7107 
7719 

10806 
10857 
11338 
10311 
1295* 
11036 


26658 
3051 


11433* 
10863 
8373 


11216 


11540* 


1184 
11239 


42 
1194 
1894 
2682 

» 4225 
5649 
7132 
78634 

10809 

10868 

11555 

108612 
1345* 

11047 


2667 
30878 
3543 
46908 
5389 
6241# 
7002 
74168 
80188 


11444°* 
108718 
8406* 


11232 


1155388 


1196 
11308 


43 
1295 
1952 
2924 
4368 
5776 
7188 
8007 

10610 
10871 


108644 
1374* 
11072 


27278 
30869 
38168 
47058 
55148 
6243 
71038 
7420 
8020 


114708 
8407" 


11290 


1188 
11329 


ag 
1345 
1978 
3009 
4499 
$871 
7213 
#029 
10811 
10874 


1393* 


11100 


2729 
31408 
38620 
4707 
5516 
637S¢# 
71168 
74868 
81218 


#415 


11293 


1190 
11337 


45 
1374 
2004 
3056 
4629 
5986 
7269 
8135 

10828 
11299 


1556* 
11127 


27998 
3142 
40808 
49188 
5640 
6377 
7120 
7486 
8123 


$426 


11338 


1191 


46 
1393 
2029 
3094 
4694 
6118 
7294 
$245 

10840 
11300 


#351° 


28601 
31738 
4082 
49378 
$642 
64898 
71848 
75608 
82318 


108659 


~ 1193 


$351 
10842 
11301 


8405* 
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26758 
3175 
42158 
4939 
57668 
6491 
71998 
7576? 
6233 


10675 


1260 


48 
1679 
2086 
3180 
4922 
6386 
7371 
8399 

108643 
11302 


10655* 


7580 
63418 


9404 


285 


1711 
2262 
3240 
4948 
6500 
7432 
8405 
10846 
11303 


10662 


29158 
3234 
43568 
5050 
586198 
6591 
72658 
76928 
6343 


108616 


286 
1747 
2511 
3338 
5059 
6602 
7500 
8420 

10847 
11314 


108665* 


11055 


287 
1769 
2579 
3415 
5179 
6767 
7564 
8426 

10646 
11321 


10874 





K€ 
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STKCNT 054652 110168 11031* 11061 11078" 11192 11194* 
STKINT 054672 1216 1397 2607 6564 9670 110318 411052 411113 ( 
STKQEN= 054671 110208 11086 11197 
STKQIN 054654 11017@ 11032® 11033 11084* 11085* 11086 11088 
STKQOU 054656 11018@ 11033* 11195 11196 11197 11199* ( 
STKOSR 054660 110198 11032 11088 11199 
STKS 001144 263@ 11015 11037" 11068* 11070 11076" 11098 12114" 11124 11136" 11156° 
STKSRY 05474? 11034 110478 ( 
STMPO 001176 2798 1474* 1475* 8757* 8762 8767 £8771 #£8881* 8895 8994° 9040° 12307 
STMP1 001200 2808 1310 4743* 4768 4835° 4839 4853 48683 6280* 6335° 758° 8762 8767 

ge62* 8897 12305 12307 12320 ( 
STMP2 001202 281@ 4771%  4772% 4841% 4842* 8761% 8764*  8766* 8769% 8996" 9038" 12320 
STMP3 001204 2028 4775* 4345* 8755* 8756* 8995* 8997 8998 12307 12320 
STMP4 001206 2938 4765* 4774 4796% 46025* 4844 8997*  9021° ( 
STMP5 001210 2048 3849* 3851* 3852 3658 3660% 3861 3930 8993* 8999* 9005 9118" 9197 

9219 
STN = 000124 i⸗ 11 1225 1200 12950 1297 12327 12451 1347 1253 1270 12740 143276 


1382 1389 1393@ 1396 1538 1543 1556@ 1559 1670 16798 1682 1704 17119 

1717 1724 1740 1747@ 112420 1762 17698 1771 1616 186238 1625 1840 16478 

1849 1864 18718 1873 18867 16948 1895 1945 19528 1955 1971 19788 1981 ( 
1997 20048 2006 2022 20298 2031 2043 20508 #2052 2077 20868 2087 2250 

22628 2489 2501 25118 2512 2570 25798 2580 2665 26768 2677 2683 2722 

2727 27428 2743 2749 2789 2799 26068 2614 28675 26828 28686 2908 2915 ( 
29248 2925 2931 2990 3002 30098 2010 3016 3038 3045 3049 3056@ 3057 

3078 3087 30948 3095 310i 3132 3140 31478 3146 3166 ©. 3173 31809 2402 

3199 3232 32408 3242 3323 33368 3339 3406 34158 3541 35528 3553 3799 { 
3813 38268 3829 400 408698 4090 4210 4215 4225@ 4226 4358 43668 4369 

4489 44998 4500 4619 46298 4630 4690 46948 4695 4705 47178 4718 4916 

4922@ 4923 4937 49400 409409 5014 $037 5048 5059@ 5060 $124 $152 5169 { 
51798 5180 5248 $275 5293 53038 5304 $3867 53968 5397 $476 $501 5514 

SS23# 5524 5603 5628 5640 56498 S650 5729 5754 5766 $7768 $777 $781 

$832 $853 5861 58718 5873 5926 5967 5976 59868 5993 6095 6107 61168 | 
6126 6221 6241 62568 6258 6365 6375 63868 6388 6480 6489 65008 6501 

6507 6589 6602# 6610 6741 6757 6767@ 6771 6849 6688 6900 69108 6915 

6991 7000 70198 7021 7103 71078 7108 7118 71328 1425 7184 71868 2400 | 
7199 72138 7216 7265 72698 7270 7290 72948 #87297 7342 73468 7347 7357 

73718 7374 7416 74328 87435 7496 7500@ 7503 7560 75648 7565 7578 75898 

7592 7692 76968 7697 7708 77198 #87722 7616 76348 7835 8003 80078 8006 ( 
8013 80298 98030 8121 81358 8136 #231 82458 8246 8341 03518 


$TPB ©: 001152 2668 11001* 11012 
$TPFLC 001157 2708 10959 11012 | 
$TPS 001150 265@ 10999 11012 
STRAP 056702 1196 114798 
$TRAP2 056724 114908 11501 | 
$STRP = 000016 114948 115038 11504® 115058 11506@ 115078 11508 115098 11510 115119 115128 115238 115148 

11515#@ 115168 115178 
STRPAD 056736 11484 ©115018 | 
STSTNM 001102 2438 8366"  8404* 10806 10844 10866* 10871 10875 11313 11338 
STTYIN 055720 11209 11210 11227 112318 
STYPBN= **ee0e gy 11507 | 
STYPDS 054206 106678 11506 
STYPE 054432 109598 11494 11502 
$STYPEC 054602 10980 10987 10994 109998 11000 11158 | 
STYPEX 054650 11005 11007 110108 
$TYPOC 056500 114248 11503 
$TYPON 056514 11423 114268 11505 LY | 
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STYPOS 056454 114198 11504 
SXTSTR 053746 108318 ( 
S$CET4= 000000 84208 
SOFILL 056677 11420 11424" 11434 114699 
S40CAT= teeeee y 10828 11323 ( 
. = 067750 164@ 1688 176 1778 1798. 1919 1958 «©1978 «©2328 2400 201 10740 11470 
11488 1149 1179 1193 1194 12268 1231@ 12448 «12488 13188 14049 14448 «614488 
14568 15068 15138 15198 16078 16488 16548 16608 16868 16908 17008 41228 83628 ( 
8428 8432 84768 84918 96818 103078 10308 103098 103108 103118 103128 103148 103158 
10316@ 103178 103188 10874 10875 109418 12012 110235 11019 11020 110238 4112318 11232 
11239 11293 11336 113938 11533 11557 122908 124208 ( 
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( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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MBUECH11-NZRIG-A,RPC4/S/6 OSKCLS CONTROLLER TST-PT 1 


OZRICE.PIL 


CHerre 
cHEc Ke 


COMMEN 
END*OY 
ERROR 


ESCAPE 
GETORT 
GETSW? 
HCI¥PR 
HCOMPY 
MAKECL 
MSG 


MSGA 
MSGB 
MULT 
NEWTST 


POP 
PUSH 


REPORT 
RFORGC 
RH70CF 
SAVE 

SAVTST 


SCOPE 


ye 
768 


5015 
3610 
6947 
14618 
1618 
1311 
2013 
2793 
3119 
3963 
=010 
$631 
6225 
6696 
7659 
8699 
9307 


1618 
7133 


10158 


5037 
1346 
11309 
1297 
1981 
3148 
4949 
6610 
7592 
1294 


29-¥A8-76 09200 


§125 
4775 
7023 
2217 
2242 
1362 
2038 
28 26 
3134 
4024 
5033 
$729 
6292 
6693 
7676 
6702 
9513 


1269 
7214 
7372 
4918 
13368 
18642 
20768 
2877 
33278 
4491 
55138 
6377 
7186168 
7201 
7359 


1337 
2022 
3173 
5043 
6900 
71703 
8621 
10471 
9608 
10234 


5152 
1712 


1347 
2006 
3182 
5060 
6771 
7697 
1344 


5249 
49F5 
7677 


13%5 
2059 
7853 
3161 
4074 
5040 
5755 
6301 
6700 
7786 
#721 
9519 


71433 
7501 
7103 
1339 
16638 
2079 
29148 
3320 
461868 
5516 
64888 
7829 
7420 
74°86 


1370 
2043 
3232 
5169 
7000 
7817 
8809 
10629 
8799 
10353 


$275 
2678 


1376 
2031 
3242 
$160 
6915 
7722 
1373 


MACVIT %0(1046) 


fe-DFC-77 


CROSS REFERENCE TABLZ -- MACRO SAPES 


$477 
5098 
7757 


1731 
2174 
2395 
3169 
4156 
5170 
$757 
6314 
6707 
7789 
8728 
9587 


7194 
15428 
1866 
22468 
2917 
34058 
4621 
563948 
6491 
8017#% 


1389 
2077 
3328 
5293 
7103 
#003 
8905 
10744 
8872 
10509 


5501 
2744 


1396 
2052 
3339 
5304 
7021 
7835 
1392 


5004 
$220 
7e%8 


1755 
2293 
7904 
3,494 
4201 
§153 
©e4as 
632i 
6743 
7806 
8734 


7265 
1545 
18668 
2252 
30018 
3408 
47048 
5642 
65868 
8020 


1543 
2250 
3406 
5387 
7118 
8018 
9043 
10784 
BORS 
10675 


5628 
2809 


1559 
2087 
3415 
$397 
7108 
8008 
1555 


$730 
§379 
#0%5 


1783 
2494 
7910 
3202 
4303 
5155 
©6468 
6349 
6745 
7968 
87239 


7342 
16708 
1889 
2500¢ 
3004 
35408 
4707 
57658 
6591 
81208 


1676 
2501 
3541 
5514 
714 
8121 
9091 
10973 
8988 
10765 


5754 
2883 


1679 
2512 
3553 
5524 
7135 
8030 
1678 


6850 
5446 
9141 


1000 
2561 
2942 
32268 
4349 
§242 
5950 
6359 
€840 
7929 
8772 


7560 
1672 
19449 
2503 
3048 
3543 
49368 
5768 
67568 
8123 


1704 
2570 
3618 
5640 
7199 
8231 
9269 
11282 
9063 
10887 


6095 
2926 


1711 
2580 
3829 
$650 
7189 
8136 
1710 


5573 
#266 


1809 
2655 
7962 
3279 
4433 
5276 
5582 
6366 
6873 
7991 
9162 


7691 
17048 
1947 
25698 
3051 
36178 
4939 
56608 
6759 
82308 


1740 
7665 
4080 
5766 
7265 
8341 
9309 
11542 
9250 
11256 


6221 
3011 


1724 
2677 
4090 
$777 
7216 
R246 
1746 


5099 
9647 


1832 
2695 
2977 
3294 
4479 
5276 
6950 
6463 
6877 
8112 
9164 


8003 
1706 
19708 
2572 
30% 68 
3820 
50478 
5863 
68998 
8233 


1762 
2727 
4215 
$861 
7280 


9538 
11543 
9287 
11523 


6741 
3096 


1749 
2743 
4226 
$7981 
7276 


17686 


20160 
6947 


1656 
2704 
7995 
3316 
4565 
9356 
6056 
6465 
66°9 
#221 
9188 


17798 
1973 
26648 
3089 
40798 
5050 
59738 
6902 
83418 


1616 
2799 
4358 
5976 
7342 


9602 
9396 
11529 
6502 
1771 
2808 
4369 
5873 
7297 


1822 


17357 PaGe 304 


“9le 
91414 


168u 
2716 
2996 
3398 
4610 
5467 
6096 
6560 
6973 
8334 
9190 


1742 
19968 
2667 
31398 
4082 
51688 
$978 
6999 
8343 


18640 
7875 
4489 
6107 
7357 


9642 
9562 


1625 
2682 
4500 
$993 
7347 


1846 


6260 


1909 
2724 
3031 
3466 
4681 
$302 
6098 
6570 
6979 
8672 
9205 


17618 
1999 
27268 
3142 
42148 
$171 
61068 
7002 


1864 
2915 
4619 
6241 
7418 


9912 
9616 


1849 
2925 
4630 
6126 
7374 


1870 


6425 


1933 
2760 
3041 
3534 
4776 
$504 
6181 
6578 
6992 
8678 
9216 


1764 
20218 
2729 
31728 
4217 
52928 
6109 
75778 


1887 
3002 
4690 
6375 
71486 


10066 
9624 


18673 
3010 
4695 
6258 
7435 


1893 





6544 


1962 
2775 
2071 
3803 
4846 
5594 
6186 
6671 
70934 
0682 
9226 


16159 
2024 
27968 
3175 
43578 
$295 
62798 
7580 
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DZRIGA.P11 

1977 

3093 

4921 

6601 

7588 

SETPRI 1618 
SETTRA 114948 
SETUP 1618 
SKIP 368 
3199 

6886 
SLASH 1618 
SMORE 368 
SPACE 1618 
STARS 27 
1370 

1709 

1971 

2232 

2915 

3228 

4358 

5057 

5861 

6765 

7280 

7587 

8341 

10144 

10877 
SWRSU 1618 
TJUMP 368 
TRMTRP 114949 
TSCLR 368 
TSCLR1 368 
TSCLR2 268 
TSCLR3 368 
TSCLR4 268 
TSCLRS 368 
TYPBIN 1618 
TYPDEC 1618 
TYPNAM 16 
TVPNUY 161 
TvPocs 1618 
TYPOCT 1618 
TYPTXT 1618 
1413 

1687 

| 9678 
@DATAR 368 
KREAD 368 
$SSCVRE 2348 
SSCYTM 2345 
$$SESCA = 1618 
$$NEWT 161% 
1971 


2003 
3146 
4947 
6766 
7695 
11188 
11503 
1174 
161% 
3799 
6991 


10817 


34 
1372 
1740 
1976 
2250 
2922 
3232 
4366 
$169 
5869 
6900 
7292 
7692 
8349 

10146 

10944 
11958 
1353 


2303 
2436 
3598 
3749 
2323 
3632 


8415 


2189 
1614 
1222 
1440 
1691 
9684 
5779 
5399 

273 

279 


1288 
1997 


‘29-MAR-76 00:00 


2023 
3179 
5058 
6909 
7718 


11504 


1275 
5014 


1618 
1389 
1745 
1997 
2260 
3002 
3238 
4489 
$177 
5976 
6908 
7342 
71694 
8396 

10215 
11014 


717 


2313 
2443 
3609 
3760 


113") 


2202 
1620 
1223 
1445 
1697 
9690 
7590 
5526 

274 

280 


1337 
2022 


2049 
3239 
5178 
7018 
7833 


11505 


1382 
5124 


174 
1391 
1762 
2002 
2501 
3007 
3328 
4497 
$293 
5984 
7000 
7344 
7708 
8434 

10216 
11091 


2683 
2336 
3620 


11119 
1233 
1449 
4119 
9694 
7720 
5652 

275 
281 


1370 
2043 


CROSS REFERENCE TABLE -- MACRO WAMES 


2085 
3337 
5302 
7106 
8006 


11506 


1538 
5248 


231 
1486 
1767 
2022 
2509 
3049 
3336 
4619 
$301 
6107 
7017 
7357 
7717 
8453 

10293 
11106 


2749 
2346 
3660 


11352 
1237 
1453 
8353 
9698 


6772 
276 
282 


1389 
2077 


2261 
3414 
$395 
7131 
8028 


11506 


1682 
5476 


11177 
2814 
2356 
3670 


11377 
1241 
1503 
8359 
9704 


277 
2A3 


1543 
2250 


2510 
3551 
5522 
7187 
8134 


11510 


2489 
$603 


291 
1543 
1821 
2043 
2577 
3087 
3413 
4690 
5382 
6241 
7105 
7418 
78632 
9735 

10375 
11201 


2688 
2366 
3680 


1245 
1510 
8469 
9710 


278 
204 


1670 
2501 


2578 
3827 
5648 
7212 
8244 


11511 


2722 
$729 


135 
1554 
1840 
2048 
2665 
3092 
3541 
4692 
5387 
6254 
7118 
7430 
8003 
9794 

10327 
11242 


2931 
2376 
3690 


1249 
1516 
8466 
10791 


1704 
2570 


2675 
4088 
$775 
7268 
#350 


11512 


2789 
“832 


737 
1589 
1845 
2067 
2674 
3140 
3550 
4705 
5394 
6375 
7130 
7486 
#005 
9797 

10481 
11295 


3016 
2386 
2700 


1253 
1604 
#473 


1740 
7665 


2741 
4224 
5870 
7293 
8403 


11513 


2908 
5853 


775 
1600 
1664 
2073 
2727 
3145 
3818 
4715 
5514 
6384 
7184 
7496 
8018 
9921 

10483 
11340 


3045 
2396 
3710 


1276 
1610 
9477 


1762 
2777 


2807 
4367 
$985 
7345 


11514 


2990 
$926 


777 
1623 
1669 
2077 
2740 
3173 
3826 
4918 
$521 
6489 
7186 
7550 
8027 
9943 

10641 
11396 


3101 
2415 
3729 


1315 
1616 
8481 


1816 
2799 
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2861 
4498 
6117 
7370 


11515 


3038 
5967 


1288 
1661 
1687 
2084 
2799 
3178 
4080 
4920 
5640 
6498 
7199 
1556 
6121 
9950 
10643 
11473 


4210 
2459 
3770 


1319 
1644 
8488 


1840 
2675 


2923 
4628 
6255 
7431 


11516 


3078 
6365 


1293 
1670 
1892 
2135 
2806 
3207 
4087 
4937 
5647 
6589 
7211 
7560 
8133 
9952 
10754 
11519 


6507 
2470 
3780 


1401 
1650 
8492 


1864 
2915 


3006 
4693 
63865 
7499 


3132 
6480 


1337 
1677 
1945 
2145 
2875 
3217 
4215 
4946 
$766 
6600 
7265 
7562 
8231 
10077 
10756 
11535 


1405 
1656 
9659 


1887 
3002 


3055 
4716 
6499 
7563 


3166 
6849 


1343 
1704 
1950 
2229 
2880 
3224 
4223 
5048 
$774 
6757 
7267 
7576 
6243 
10079 
10803 


1409 
1683 
9666 


1945 
3049 
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OZRIGA.P11 29-MAR=-76 00:00 CROSS REFERENCE TABLE -- MACRO WAMES 
3087 3140 3173 3232 3328 3406 3541 3818 4080 4215 4356 4489 4619 4690 
4918 4937 5048 5169 5293 5387 5514 5640 5766 $8661 5976 6107 6241 6375 
6589 6757 6900 7000 7103 7118 7184 7199 7265 7280 7342 7357 7418 74866 
7578 7692 7708 7816 8003 #018 8121 6231 6341 


SSSFT 114948 
SSSKIP 1618 


@EQUAT 
FLOAT 
eHEADE 
eKT11 

SETUP 
eo SWRHT 
e SWRLO 
e@$ACT1 
eSCATC 
oSCMTA 
eSEOP 

eSERRO 
eSERRT 
oe SPOWE 
e$RDOC 
e SREAD 
e$SCOP 
e STRAP 
@STYPO 
oSTYPE 


‘aerrPO 


e ABS. 067750 


11503) 11504 11505 11506 11508 11510 11511 11512 11513 11514 11515 11516 


1722 1747 1823 1847 1871 1953 1979 2004 2029 2050 


498 $0 


000 


ERRORS DETECTED: 0 


7 OZRIGA/SOL/CRF=DZRJGA 
RUN-TIMES 34 33 3 SECONDS 
RUN-TIME RATIO: 2203/71=30.7 


CORE USED: 





29K 


(S7 PAGES) 


4705 
6489 
7560 


1 


